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IJK Software and the ORIC-1 Micro 
bring you more exciting arcade 
action from the Xenon series... 


IJK Software Ltd present... 
FOR THE 46K OF 1C-1 


From the author of the highly 
acclaimed Xenon-1 comes the , % sg y 
second in the Xenon series. This se. a 7 = bee 
game continues the high standard hag Rea FEATURES INCLUDE: 


of excellence set by its pre- 100% MACHINE CODE 
decessor.The amazing super high 

resolution .graphics make this 100% machine code arcade game a must for your SUPERB SOUND EFFECTS 
collection. SUPER-SMOOTH HI-RES 
Following their defeat at the hands of the Xenon fleet the Zorgons have captured the GRAPHICS ° 

Xenon princess Roz, and have imprisoned her in their castle. You are commissioned to 

rescue her by scouring the four corners of the Zorgon Empire to capture the magic MULTI-STAGE ARCADE ACTION 
stones. These stones, guarded by the Quadnogs, Terrapods and many other strange SKILL LEVELS 

beasts, are needed to bridge the bottomless chasm surrounding the castle, enabling you 

to achieve your goal. HALL OF FAME 

Each one of the many varied stages in this scintillating mission will test your arcade 

ability us never before. For the 48K ORIC-1 £8.50 inc. 


OTHER TITLES IN THE IJK SOFTWARE ORIC-1 RANGE... 


is Candy Floss 
HANGMAN“ 
son remeagone 


XENON-1 INVADERS FANTASY QUEST REVERSE CANDYFLOSS & 3D MAZE & 
100% M/C arcade Machine code Intriguing Superb board HANGMAN BREAKOUT 
game for the arcade game for adventure for game for Two top Arcade action for 
48K ORIC-1 16K & 48K ORIC-1 48K ORIC-1 48K ORIC-1 educational 48K ORIC-1 
£8.50 inc. £7.50 inc. £6.50 inc. £6.50 inc. programs for £7.50 inc. 
48K ORIC-1 


ALL PRICES FULLY INCLUSIVE OF VAT and P&P - NO MORE TO PAY 


Our software has been officially approved by Oric Products International Ltd., 
and is available from branches of W.H. Smiths, Laskys, Computers for all, 
Zappo, Boots, John Menzies, The Spectrum Chain, many other leading 
department stores, hundreds of independent dealers nationwide, and in 

23 countries across the world. You can also order direct from us - all advertised 
software is in stock now and will be despatched within 48 ise of soa of 
orders 


IJK (7) 24HOUR ANSAFONE _ 
‘Software 9 King Street, Blackpool, Lancs. B. 
I J K Limited . wiMcunationsclaslesnaierm ofade, copes svaiane. 
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Oric Insight: The 
Hidden Oric 
How to access the floating 


point maths routines directly in 
machine-code 


I'M FALLING 
INTO THE 


Captain Tanex 


More incredible adventures of 
our intrepid hero 


Hints and Tips 


A new column of recipes for 
your Oric, to experiment with 


Phonics 


A test for your ears to spot the 
odd word out 


New Products Review 


We look at the new Oric 1 
MCP-40 colour printer 


Frog-Run 


Can you get the frog to avoid 
all the traffic hurtling towards 
it and reach its destination? 
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Our software is available from all Oric dealers and 
most good software suppliers. In case of difficulty 
please contact us on Teversham (02205) 2261 or write to us at: 


SE, OE Se 
TaMmMSuor 1 
Unit 1 & 2, Techno Park, Newmarket Road, Cambridge 


Regulars 


Editor’s Comment 


Summer is the worst time of year 
for the micro enthusiast. The 
sun beats down mercilessly on 
those forced to mow the lawn or 
lie on deckchairs. There’s no 
welcome snowstorm or flood 
which means that he has to stay 
indoors writing obscure machine 
code packages or solving adven- 
ture games in four dimensions. 
If you go abroad ten to one 
there’s no mains outlet on the 
beach and someone’s forgotten 
to pack your aerial lead. Yet in 
hundreds of offices all over the 
country software houses are 
planning their latest games or 
business programs for the com- 
ing autumn and winter rush. 
This has been going on for about 
the last three years yet things are 
beginning to change. 


Nowadays if you go to a com- 
puter exhibition you will find 
less people actually buying 
equipment or software and more 
just trying it out and seeing 
what’s available before going to 
their local W. H. Smiths or 
Dixons to buy it. This is in 
contrast to the exhibitions of a 
few years ago such as the Bread- 
board shows where every exhibi- 
tor could expect to clear his 
stand before the end of the show 
and perhaps even sell the stand 
as well! 


Paul B Kaufman 


It is obvious then that the whole 
retail market is maturing and 
rapidly becoming attuned to the 
consumer rather than the strict 
hobbyist. In a way a lot of the 
early magic is disappearing. 


I can remember the excitement 
when my MK14 kit arrived on 
the doorstep from Science of 
Cambridge (Pre-Sinclair!) and 
after a few hurried hours of 
soldering, switching it on to find 
it didn’t work. This, in a way, 
was quite gratifying because if it 
had worked I would have just sat 
there and looked at it — there 
was no software around to do 
anything with. I remember even 
being able to get through to Nick 
Toop or David Johnson-Davies 
at Science of Cambridge and 
actually talk to these people who 
designed the machine. The same 


goes for when I upgraded to a 
Tangerine Microtan, I was 
always talking to Paul Johnson 
or Barry Muncaster about some 
technical point or other. 


In a way things had to change. 
The small numbers of these 
machines would have kept no- 
one in business very long. Today 
when you buy a computer it is 
almost always certain to run first 
time (don’t all write at once!), 
software of some sort is always 
available and although you can’t 
get to talk to the designers, there 
are usually plenty of publica- 
tions (such as this) to help with 
your technical problems. 


The point of writing this is to 
show that although there are 
always complaints and_prob- 
lems, they are usually, in per- 
spective, nowhere as devastating 
as they could have been a few 
years ago. So although some of 
the old magic has gone, today’s 
product is far more complete 
and reliable than its more 
temperamental predecessors. 
Speaking as someone who was 
there when it started I think I 
prefer the present solid reliable 
products (well fairly reliable!) to 
the old circuit board and bits of 
wire designers nightmare. 
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News 


News Brief 


Addons from MCP 


MCP have released a joystick 
interface that includes its own 
speech synthesizer. This is based 
on a fixed vocabulary chip which 
gives a limited vocabulary of 
around 200 words although the 
sound quality is higher than the 
phoneme types. The joystick 
socket is designed for Atari type 
connections. 


MCP are also planning to 
release in the near future a 
digitiser (bit pad), an RS232 
interface and a multichannel 
A/D converter. 


More information from MCP, 
Tel (0792) 844465. 


Financial Director for Oric 


Allan Castle, F.C.A. has joined 
Oric Products International, 
manufacturers of the Oric 1 
microcomputer, as their Fin- 
ancial Director. He took up the 
appointment which carries a seat 
on the Board on July 1. 


Mr. Castle has just spent six 
years in Hong Kong as Financial 
Controller of the Ednasa Group 


Oric Sales Increase 


Sales of Oric’s microcomputer 
are expected to reach 350,000 
during the first year, a six hun- 
dred percent increase over its 
initial projection. It exports in 


large quantities to France and 
other European countries and 
has recently set up joint ventures 
in Japan and Singapore to cover 
the Asian and Australasian mar- 


which is involved amongst other 
things in shipping, oil field ser- 
vices and property in Singapore, 
Houston and Brisbane. He 
began his career as a Chartered 
Accountant with Coopers and 
Lybrand where he spent seven 
years before leaving to become 
Assistant Treasurer of P.&O. 


ket. The company is also 
actively seeking a similar joint 
venture with an American com- 
pany. 
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Not many titles have arrived for 
review since the last issue so I 
suppose that everyone is off on 
their summer hols. 


A company who I have not 
heard of before, Sector 7 Soft- 
ware, have sent me their Games- 
pack. It contains seven short 
games — Laser Station, Obstruc- 
tion, Mazatronic, Demolition, 
Milliblox, Noughts and Crosses, 
and Maths-Test. Although writ- 
ten in Basic they are of a good 
standard with reasonable graph- 
ics and sound. Although they 
probably won’t appeal to the 
arcade addict they are very suit- 
able for the younger Oric user. 


P.S.S. have sent me a preview 
copy of their ‘Ultra.’ This is a 
space invaders shoot down type 
game with a difference. The 
invaders keep changing shape 
and moving in various patterns 
across the screen. The graphics 
are very good, particularly the 
star background which seems to 
move independently of the 
aliens in front. A very enjoyable 
game. 


House of Death is a follow up 
adventure game to Zodiac from 
Tansoft. The adventure takes 
place in a disused film set which 
was once used for horror films. 
As you would imagine there are 
all sorts of nasties out to get you 
and plenty of puns and bad jokes 
which are becoming hallmarks 


of Geoff Phillips writing. As 


with Zodiac you will need 
several hours to play this adven- 
ture through, plus endless pat- 
ience. Geoff tells me he is work- 
ing on a proper follow up to 
Zodiac called-— wait for it — 
Zodiac 2. Apparently this will be 
written mainly in machine code 
to speed things up. 


I have managed to get hold of a 
preview copy of Author, the 
word processing package by 
John Dawson. It is cassette 
based and is written entirely in 
machine code. When you first 
enter it you are presented with a 
menu that gives you the various 
program options. These allow 
you to create new documents, 
edit existing ones, save or load 
to cassette, set up parameters 
for printers and count the num- 
ber of words in your text. 


Entering text is very simple, you 
simply type ‘W’ for write and 
answer ‘Yes’ to clear old text out 
of memory. You then just type 
in whatever you require. 


Editing text is also simple. You 
can move about your text page 
by using the cursor keys and you 
have the ability to insert new 
text, delete unwanted charac- 
ters, words or paragraphs and 
search for specific words. 


A clever feature is wordwrap. 
This ensures that a word is never 
broken in half if it overflows the 
end of the line. It is always 
moved down to the next line. 
There are some more sophisti- 
cated features such as auto cen- 
tring, left and right margin set- 
ting and tabs. Author will num- 
ber pages for you automatically 
if required and force new pages 
to be printed when needed. You 
can also have one paragraph 
always printed at the top of each 
form. 


Although there isn’t room to 
describe in detail everything that 
Author can do, in the few hours 
I have spent using it I was very 
impressed with its capabilities. It 
is quite happy to work with most 
printers including Oric’s MCP 
40. 


Next time I hope to look at Oric 
Calc and the Hobbit adventure. 
We are also looking for indepen- 
dent software evaluators to 
review new Oric software. If you 
are interested why not drop mea 
line. 
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A number of people have men- 
tioned problems with Oric-Trek 
in Issue 1. Try adding the line 10 
HIMEM #97FF. 


In Issue 2 on page twenty we 
have had a few complaints about 
the data saving program. Try 
putting quotes at the beginning 
and end of each DATA state- 
ment. 


In Issue 3, the program ‘journey 
of a Space traveller’, the intro- 
duction was printed at the end of 
the article instead of the begin- 
ning. 


Also in Issue 3, the text for the 
program ‘Skiing’ should finish 
after: 

1000-1080 Data statements for 
forming the screen. The rest was 
a printing error and should be 
ignored. 


Let us know of any disasters you 
find. 


% SECTOR / SOFTWARE 


GAMESPACK 


For THE ORIC 


GAMESPACK CONTAINS THESE 
HIGH QUALITY GAMES: 
LASER-STATION 


— A planetary space duel — 
On a lonely red mining planet, defend your laser installation from 
a descending enemy saucer. Knock out the saucer’s photon bolts 
with the laser till the saucer comes in range, but watch your 
energy level & don’t let the saucer hit the recharging plant. 


OBSTRUCTION 

— Territory, traps & skill — 
Steer your block around the screen restricting the movements of 
Oric’s snake. Set-up the dead-end trap without getting into a jam 
yourself. 


MAZATRONIC 

— A 3-Dimensional Maze Exploration — 
Oric places you at a random point inside a 3-dimensional maze. 
Move through the maze and use an aerial plan to deduce where 
you are. Then work your way to the exit. A fascinating game 
requiring patience and imagination. 


DEMOLITION 

— A race against time — 
A quality version of this addictive game. Level the cities of an 
abandoned planet to land and refuel. Comprehensive scoring 
with bonuses and extra ships for competitive players. 


MILLIBLOX 

— A Point-Scoring Chase through 7 sectors — 
7 sectors to explore as Blue milliblock evades the Red milliblox. 
You have to score 200 points in each sector before the exit 
appears to the next, and each sector contains a special power 
milliblox to turn the tables on the Red milliblox for a short while. 


AND FOR YOUNGSTERS 
NOUGHTS & CROSSES 


— The Traditional Game — 
3 skill levels to provide even the youngest gamester with a 
suitable opponent. 


MATHS-TEST 

— Combines Maths & Fun — 
A game for youngsters to practice their maths. Oric sets 
questions on 10 skill levels. A correct answer gives you a chance 
to shoot down invading spaceships. With each correct answer 
more spaceships appear, and they get faster. 


ALL GAMES HAVE MULTI-SKILL LEVELS 
(16K Gamespack contains Laser Station, Obstruction, 
Demolition, Milliblox and Noughts & Crosses) 


Gamespack 48K (7games) .............. £7 
‘i 16K (5games) ............ £5.95 


Prices include P & P, cassettes despatched promptly. 
Send cheque or P.O. to 


SECTOR 7 SOFTWARE, P.O. BOX 8 
NEWTON ABBOT, DEVON 
Tel: 06267—4504 (trade enquiries welcome) 


8 Oric Owner 


TT 
STENCH On EH 
ISSDPOL II 


\ V’GT'S_ HORRIBLE 
a q ~ San, 
aS Beet 
ly j 
aL 


DONTLET KIM 
FOLLOW ME ! 


% 
=e 


AY CANNT 
HOLD i 
LO 
ANS ie: 


7 
| 
/ 


The Hidden Oric 
Paul B Kaufman 


This article is condensed from 
two articles that appeared in 
Issues 4 and 5 of the original 
Tansoft Gazette by Jim Rew and 
Andy Biggs. It will allow you to 
access your Orics built-in 
mathematical routines directly 
through machine code. 


Before you can go leaping about 
in Orics ROMs you will need to 
know how BASIC handles float- 
ing point numbers. All floating 
point operations take place 
either directly in memory or in 
two special floating point accu- 
mulators in zero-page, known as 
FAC1 and FAC2. 

The format of a floating point 
number held in memory is dif- 
ferent from when it is held in the 
floating point accumulators: 


Oric Insight 


Features 


IN MEMORY - Sign Packed 5 Byte Format 
Exponent Mantissa — 4 bytes Least significant end 


| |s | 


elo’ 


Byten n+l n+2 nt+3 n+4 


The exponent is in excess 128 (decimal) form, that is: 


(a) A true exponent of zero is stored as (hex) 80 
(b) A true exponent of one is stored as 81 
(c) A true exponent of minus one Is stored as 7F 
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Features 


A stored exponent of zero 
means the number is zero 
regardless of the value of the 
mantissa. 


The ‘binary point’ is held to be 
at the most significant end of 
the mantissa and the number 
is ‘normalised’ such that the 
most significant bit of the 
mantissa is a ‘1’. This being 
always true this bit is then not 
explicitly stored, and _ is 
instead used to indicate the 
sign of the mantissa (0=+, 
1=—), as indicated by the ‘S’ 
above. 


Error Handling 


There are a number of problems 
which can cause the ROM rou- 
tines to abnormally terminate: 


(a) Floating point overflow (any 
operation) 

(b) Division by zero 

(c) Illegal operations with the 
transcendental functions 

(e.g. taking the square root of a 

negative number) 


If you hit one of these problems 
while you are ina ROM routine, 
you will probably crash. 


The ROM routines will, on 
error, attempt to enter the 
BASIC error handler, which 
would normally print a message, 
reset lots of zero page param- 
eters and restart the interpreter 


IN THE FLOATING ACCUMULATORS - Unpacked 6 Byte 
Format 


Exponent 


4 bytes of Mantissa 


SIGN Byte 


ee eee 


Bytem m+l m+2 


m+3 


m+4 m+5 


The exponent has the same form as above. 
The sign is extracted to the SIGN byte (msb 0=+ mantissa) 


(msb 1=— mantissa) 


The lost | is reinstated at the most significant bit of the mantissa. The 


actual number had the value: 


MANTISSA*2 TRUE EXPONENT 


In a similar fashion, those ROM routines which store an accumulator 
value into memory will translate back to the packed format. 


—fine if you're -already in 
BASIC, but not if you’re just 
using the subroutines. The likely 
effects are that the error handler 
will mess up your zero-page 
usage and either the error print 
or the restarted interpreter will 
crash because zero page will not 
be set up the way the interpreter 
is expecting! Cheerful isn’t it? 
Since the error call is not vecto- 
red you can’t catch the problems 
yourself. So beware! 


ROM Routines 


Oric’s BASIC ROMs contain a 
number of useful floating point 
maths routine that can be used 
from machine code programs. 
The entry points of some of 
these routines are listed below, 
together with enough informa- 
tion for the experimenter to 


make use of them. These routi- 
nes make extensive use of zero- 
page for their operation, 
however $35 to $80 are available 
for user storage. 


In the list, ACC1 is the primary 
floating point accumulator used 
for number crunching and is 
located in the six bytes $DO to 
$D5. ACC2 is the secondary 
floating point accumulator, used 
for mathematical arguments, 
and is located in the six bytes 
$D8 to $DD. 


MEM is the address of the first 
byte of a five byte packed float- 
ing point number. The address 
of MEM is determined by the 
user. On entering these routines 
the address of MEM is usually 
held in the A and Y registers. 
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Features 


ORIC INSIGHT 


The following example shows 
how the routines are used: 


Example: Divide 154 by 5, store 
the result at $1F FO for future use 
and print the result. 


vee SER [ssve 5 ORIC ound 
f ee 


PACE TZ 
Name Address 
MOVFM DE73 
CONUPK DD4D 
MOVMF DEAS 
MOVAF DEDD 
MOVFA DECD 
FDIVT DDE3 
FDIV DDEO 
FDIV2 DDDA 
DIV10 DDBF 
SOR E22A 
POWER E231 
INT DFAS 
ABS DF31 
FADD DA97 
FADDH DA79 
FSUB DA80 
FMULT DCB7 
MUL10 DDA3 
SGN DF12 
LOG DC79 
NEGOP E26D 
RND E34B 
SIN E38E 
COS E387 
TAN E3D7 
ATN E43B 
GIVAYF D3ED 
QUINT1 D871 
FOUT EOD1 


Example 

1F00 A900 LDA #30 

1F02 AQIA  LDY #$9A 

1F04 20EDD3 JSR GIVAYF 

1F07 20DDDE JSR MOVAF 

IFOA A900 ~=~—Ss LDA #30 

1FOC AOS LDY #$5 

1FOE 20EDD3 JSR GIVAYF 

IFll 20E3DD JSR FDIVT 

1F14 AQIF  LDY #$IF 

1F16 A2FO  LDX #$F0 

1F18 20A5DE JSR MOVMF 
: ail IFIB 20D1E0 JSR FOUT 
FR CoRReC TON) =~ GEE EA NOP 

~  IFIF EA NOP 
= 1F20 EA NOP 

1F21 A201. +LDX #$01 

1F23 BD0OOl LDA $100,X 

1F26 F006 BEQ $1F2E 

1F28 9D10BE STA $BEI10,X1 

1F2C DOFS BNE. $1F23 

IPE 00 BRK 

BD 00 01 


Listing of Entry Points 


Function 


Mem—>Accl 
Mem— Acc2 
Accl>Mem 
Accl—Acc2 
Acc2—Accl 
Acc2/Accl—Accl 
Mem/Accl—Accl 
Acc2/Mem—>Accl 
Accl/10>Accl 
SOR Accl—Accl 


Acc2 f Mem—Accl 


INT Accl>Accl 
ABS Accl—Accl 
Mem+Accl—Accl 
Acc!1+0.5—Accl 
Mem-—Accl—Accl 
Mem*Accl—Accl 
Accl*10—Accl 
SGN Accl—Accl 
LOG Accl—Accl 
—-Accl >Accl 
RND Accl>Accl 
SIN Accl—Accl 
COS Accl—Accl 
TAN Accl—Accl 
ATN Accl—Accl 
A,Y—Accl 
Accl$D3,$D4 
Accl—$100+ 


Description 


Transfer Mem to Accl. A=MemLO.Y=MemHI. 
Transfer Mem to Acc2.A=MemLO. Y=MemHI. 
Transfer Accl to Mem X=MemLO. Y=MemHI. 
Transfer Accl to Acc2. 

Transfer Acc2 to Accl. 

Divide Acc2 by Accl.Result in Accl. 

Divide Mem by Accl.A=MemLO.Y=MemHI. 
Divide Acc2 by Mem.A=MemLO.Y=MemHI. 
Divide Accl by 10. 

Find the square root of Accl. 

Acc2 raised to Mem.A=MemLO. Y=MemHI. 
Find the integer of Acc]. 

Find the absolute value of Acc. 

Add Mem to Accl.A=MemLO. Y=MemHI. 
Add 0.5 to Accl. 


Substract Accl from Mem.A=MemLO.Y=MemHI. 


Multiply Mem by Accl.A=MemLO. Y=MemHI. 
Multiply Accl by 10. 

Find the sign of Accl. 

Find the log of Acc1. 

Negate Accl. 

Generate random number. 

Find the sin of Accl. 

Find the cos of Accl1. 

Find the tan of Accl1. 

Find the atn of Accl. 

Convert integer to F.P. Y= IntLO.A=IntHI. 
Convert Accl to int.$D4=IntLO.$D3+IntHI. 
Convert Accl to string. Accl destroyed. 
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News 


New Products Review 
MCP40 Colour Printer/Plotter 


ane ae 


This is the first official addon for 
the Oric-1, a complete printer 
and pen plotter all in one. 
Instead of the usual arrange- 
ment of heated pins or sparks 
this printer uses a_ clever 
mechanism consisting of four 
ball-point pens on a rotating 
cylinder. These pens are black, 
red, green and blue and so allow 
colour text or graphics to be 
printed. Each colour is selected 
either by pressing one of the 
buttons at the front of the 
printer or by entering LPRINT 
CHR$(29) on your Oric. 


The printer has its own power 
supply cable and comes with a 
ribbon lead to connect it to the 
printer socket on the Oric. Make 
sure that you plug the lead in 
correctly otherwise your Oric 
will just freeze. 


Apart from the normal printing 
of characters there is also the 
facility to control the size of 


\\\\\AAA\AAAAAAAA 
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coupled with the facility to print 
text in four different directions 
makes for some very interesting 
patterns and graphic designs. 


The printer uses 414” plain roll 
paper and is selectable for 40 or 
80 characters per line. It is also 
possible to select by switches 
whether a CR or CRI/LF is 
printed at the end of each line. 
You also have a switch to select 
the katakana (Japanese) 
character set. 


There is a graphics mode in the 
printer, which allows you to 
draw diagrams and pictures very 
easily. There is a command 
similar to the Orics Hi-Res Pat- 
tern command. This allows you 
to draw dotted lines of 16 differ- 
ent types. The resolution across 
of 480 by the length of the paper 
allows the detail of pictures to 


characters in 64 steps. This 


equal or surpass the quality of 
Hi-Res mode. 


Plotting is made very easy by a 
set of commands that give you 
absolute and relative drawing, 
resetting the origin and mixing 
text with graphics. Most im- 
pressive is the facility to draw 
the axes of a graph automatically 
including the tick marks along 
the edge. 


All in all, then, this printer is 
very well suited to the Oric and 
would be ideal for most hob- 
byists or even some _ business 
users. It would be silly to pre- 
tend that it could produce letter 
quality printing and its speed of 
writing is a little slow (12 cha- 
racters per second) but I know of 
no other printers that give these 
facilities for the price. So for 
value for money I don’t think 
you could go wrong here. 
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Features 


‘2—-D Arrays & Totals’ 


The program presented demon- 
strates one solution to the prob- 
lem of the peculiar TAB func- 
tion found in the ORIC BASIC 
ROM, especially when produc- 
ing 2 Dimensional Arrays. 


The text discusses some of the 
problems and solutions encoun- 
tered whilst developing the pro- 
gram on an ORIC-1. 


ORIC PRODUCTS INTER- 
NATIONAL have = acknowl- 
edged the problem with the 
TAB function and have stated 
that this function only appears to 
work from position 13 on the 
screen. 


These facts will become relevant 
if a short history of the program 
is detailed. 


The program owes its origins to 
the N.E.C.’s 30 Hour BASIC 
Course (actually Assignment 
8.1). The program was originally 
written for use on an Apple 2. 


My special interest is writing 
Business Programs and upon 
owning my own ORIC-1 I 
decided to use this program as 
part of a larger one. Running 
this program in its original form 
on the ORIC provided some 
interesting, albeit incorrect, 
results. By experimentation, 
and a ’phone call to ORIC 
which confirmed that there was 
a problem with the TAB, a 


By L. Bancroft 


solution has been found. Also a 
better understanding of certain 
functions of the Oric has been 
gained. 

The TAB function will work 
as a single statement, although 
for this function the screen is 
numbered 13 to 51 (from Left to 
Right) not 0 to 38. Multiple 
TAB statements e.g. PRINT 
TAB(X);TAB(Y);TAB(Z).... 
will not work. 


Having found the problem the 
next step was to find a solution, 
obviously the next function to 
try was SPC. 


After a few trial statements with 
SPC it was discovered that some 
of the problems associated with 
TAB statements were also 
present with SPC, plus one or 
two new ones! These, together 
with the results of further trials 
are summarised in TABLE 2. 


Having decided that to make the 
program run correctly and pro- 
duce a correctly formed table of 
figures the following functions 
were deemed necessary: 
TAB,SPC,LEN,STR$. 


When using STR$ it has to be 
remembered that when used 
with a numeral an additional 
space is added in front of the 
number for the + or — charac- 
ter. E.g. Line 160 causes the 
current value of J to be printed 5 
spaces from the last J, not 6. 


It will be seen from Table 2 that 
SPC statements in loops where 
the FOR/NEXT Value is to be 
printed do not operate correctly. 
To overcome this it is necessary 
to convert the value to a string, 
i.e. PRINT STR$(J). 


By trial and error the necessary - 
statements were formulated and 
incorporated into the program 
with a successful result. 


To summarise: The TAB func- 
tion on the ORIC-1 can only be 
used as a single statement. The 
TAB positions on the screen are 
13 to 51, and TAB position 
below 13 will be printed at 13 
(e.g. TAB(5) will appear at the 
extreme Left of the screen 
exactly as would TAB(13)). 
Table 1 gives some examples of 
statements that will work and 
some that won't. 


For multiple printing on one line 
either SPC alone or following a 
TAB statement is required. It 
has to be remembered that when 
using SPC in loops, where the 
FOR/NEXT value is required to 
be printed that this numeral has 
to be converted to a string. From 
personal experience I have con- 
cluded that the SPC function, 
within a loop for multiple print- 
ing on one line, only operates 
correctly with strings or with 
numbers already designated 
storage labels, e.g. Lines 200, 
260. 
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Features 


‘2—D Arrays & Totals’ 


In conclusion the lines that have 
been altered in the program are 
listed below together with their 


function: 


150-160 Print the Headings 
180-210 Print Day No., Data, 


Daily Totals 


230-260 Print Product Totals & 


Gross Total 


Table 1 


TAB Functions Correctly 


10FOR X + 13TOS1 
20 PRINT TAB(X)X 


30 NEXT X 
?TAB(X-LEN(T$))T$ 


?TAB(X-LEN(STR$(X)))X 
?TAB(X-LEN(T)T 


Table 2 
SPC Functions Correctly 


10FORX =1TOS 

20 ?SPC(X)X 

20 ?SPC(5)X 

20? SPC(10-LEN(T$))T$; 

20? SPC(10-LEN(STR$(X)))“A”: 

20 ? SPC(10-LEN(STR$(T)))T; 

20 ?SPC(10-LEN(STR$(X)))STR$(X); 
30 NEXT X 


(The above examples will function correctly/incorrectly whether in loops or not.) 


TAB Functions Incorrectly 


Any Multiple TAB Statement. 


E.g. PRINT TAB(X);TAB(Y); etc. 
FOR X+13TO 51 STEP 5 
?TAB(X)X; : NEXT X 


FOR X = 13 TO 51 STEPS 
?TAB(X)“A”; : NEXT X 


SPC Functions Incorrectly 


10FORX=1TO5 
20 ?SPC(10-LEN(STR$(X)))X; 
30 NEXT X 


10FORX =1TOS 
20? SPC(5)X; 
30 NEXT X 


The above examples will print the first 
value correctly but subsequent values 
will be printed at SPC(5+1) i.e. SPC(6) 
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Features . 


‘2—D Arrays & Totals’ 


) REN "2-D ARRAYS & TOTALS" 

20 DIM N(7,6) : DIM A(6¥ : DIN B(6) 

30 REM ***READ & TOTAL RCUTINE*** 

40 FOR IT’= 1 TO 5 

50 FOR J = 1 T0 4 

60 READ N(I,J) 

70 A( J) A(J) + N(I,J) 

80 B(T) B(I) + N(I,J) 

90 WEXT J 
100 T = T + B(T) 
110 PRINT : NEXT I 
120 REM ***PRINT ROUTINE ** 
130 PRINT TAB(14) "DAY"sSPC(8) "PRODUCT" 
140 PRINT TAB(14) "~--";SPc(8) "-------" 
150 PRIUN® TAR(19) "1"; 
469 PYR JT = 2 T0 4 ¢ PRINT SPO(7-LEN(STRA(I))) STRE(T); ¢ NEXT J + 

PRINT SPC(5) "TOTALS" : 

170 FOR X 13 T0 50 : PRINT "=~"; : NEXT X 
180 FOR I = 1 TO 5 : PRINT TAB(14)T; 
120 FOR J 1 TO 4 : PRINT SPC(6-LEN(STRS(N(T,5))))NCI,J); : NEXT 
200 PRINT spa(9-LEXN(STR#( B(1)))) BCT) 
210 PRINT : NEXT I 
220 FOR X = 13 T0 50 : PRINT "~{"3; 3; NEXT X : PRINT 
230 PRINT TAB(22-LEN(STR$(A(1))))A(1)3 : J=2 
240 PRINT SPC(6-LEN(STR$E(A(Z)))) ACT); 3s J=S+1 
250 IF JZ 5 THEN 240 
260 PRINT SPC(9-LEN(STRS(T)))f2 
270 FOR X = 13 TC 50 : PRINT "{"; 3 NEXT X : END 
280 DATA 500,300, 20,25, 600,790,/0,0, 200, 550 
290 DATA 60,20,250,450,100,5,400,200,100,11 


lt 


oe 
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Character generator 
program 
By Carsten Skjerk 


This character generator pro- 
a iS dumped directly to the 1 REM* 1983 CARSTEN SKJERK 


printer using LLIST. 5 REM xx CHARACTER GENERATOR «x 

10 INK7:FAPERL: HIMEMH97FF 
20 CLS: AS=CHR$ (255) - TEXT: PRINTCHR$ (20) ; 
30 PRINT: PRINTASASASASASASASAS 


The following changes are 40 FORX=1T08 
50 PRINTAS" "Ad 
needed for the character genera- am: WERE 
‘ 70 FRINTASASASASASASASAS 
tor to run on the 16K: 80 PRINT: PRINT"Inout the character to be redefined" 


90 BS=KEY$: IFR$=""THENIO 


Line 10: #97FF should be #17FF 91 IFASC (BS) (320RASC (BS) > 1L2BTHENIO 


100 PRINT"Characterset O or 1 7? " 


Line 120: #B400 should be #3400 110 GETCS: IFC$<"O" ORCS) "1" THENLIO 


115 C=VAL (C$) 


Lines 190, 290, 420: 48123 120 A=HBGOO+VAL (C$) KH400+8xASC (BS) 
130 FRINT:FRINT"Fress ’s’ to set a pixel and ’d’ to delete a pixel." 
should be 15335 132 PRINT"Press Space Bar to clear character." 
: 135 PRINT"Fress ’t’ to save current characterseton tape." 
Line 315: the CSAVE - 140 PRINT:FRINT"Use the errowckeps to poset the cuteny «#1 
150 PRINT: FRINT"Fress CRETURN] to store the character. "> 
addresses should be A#3400, 140 FORK=1T022:PRINTCHR$ (11), -NEXT mick ‘ 
E#3B80 180 PRINTCHRS (9) CHRS (9) CHRS (9) | 


190 Z=48123:Q=126 
200 FORX=0T07 
210 Y=FEEK (X+A) 


General notes: 220 IFYANDS2THENFOKEZ+X, (@) ELSEFOKEZ+X, 32 
: y 230 IFYANDI6THENFOKEZ+X+1, (Q) ELSEFOKEZ+X+1,32 
Line 50, 395: 6 spaces 240 IFYANDSTHENPOKEZ+X+2, (Q) ELSEPOKEZ+X+2, 32 


250 IFYAND4THENPOKEZ+X+3, (Q@) ELSEFOKEZ+X+3, 32 
260 IFYAND2THENPOKEZ+X+4, (Q) ELSEPOKEZ+X+4, 32 
270 IFYANDITHENFOKEZ+X+5, (Q) ELSEFOKEZ+X+5, 32 
280 Z=Z+39: NEXT 

290 Z=48123 

300 GETCS$: B=ASC (CH) 

310 IFBCBORB) LLANDCS (> "S"ANDCS (> "A"ANDCS (> "t"ANDB (> LZANDC$(>" "THEN3Z00 
315 IFC$="t"THENCSAVE "CHARACTERSET ", AHB400, EXRBR8O 
320 IFB=8ANDP0S (0) >) 3THENZ=Z-1: FRINTCS; 

330 IFB=9ANDPOS (OG) (8THENZ=Z+1 > FRINTCS; 

340 IFB=1LOANDFEEK (616) (LQTHENZ=Z+40: PRINTCS > 
350 IFR=11ANDPEEK (616) > 3THENZ=Z~-40: PRINTCS ; 
370 IFC$="e"THENFOKEZ, 126 

380 IFC$="d"THENFOKEZ, 32 

390 IFR=13THENG10 

395 IFC$=" "“THENFORX=2T09:FLOT2,X, " "> NEXT 
406 GOTO300 

410 PRINTCHRS (17) ; 

420 Z=48123 

425 IFC=1THENPLOTI4, 5, 9ELSEPLOTI4,5,8 

426 PLOT15,5,B4 

430 FORX=0T07 

440 c=0 

450 FORY=GT05 

460 D=PEEK (Z+Y¥+ (40% x) ) 

470 L26THENC=C4+24 (5-Y¥) 

480 NEXTY 

485 CH=RIGHTS$ (STR (C) ,LENCSTRS (OC) ) -1) 

490 POKEA+X,C°FLOT9.X+2," "40S 

500 NEXTX 

S05 FLOTI,25, "Press CRETURNI to continue,” 
510 GETAS 

520 FPRINTCHR+ (17) CHR (20) > RUN 
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PEACH COMPUTERS LTD 


192 GREENOCK RD LARGS AYRSHIRE 
TEL- 0475 673766 


THE ENTIRE HIRES SCREEN OF THE ORIC-I IS 
COFIED FERFECTLY IN SECONDS USING NEW -- 
VERY FAST MACHINE CODE SUBROUTINES 


SUPPLIED ON CASSETTE WITH FULL DETAILS 


RUNS ON ANY CENTRONICS TYFE FRINTER ~-~— 
SUCH AS THE EFSON RANGE OR EQUIVALENT 


TOTAL INCLUSIVE COST.... 5S FOUNDS 
USERS 


ORIC- CLUB 


Join Now and receive: 


@ A Free ‘Oric Toolbox’ Cassette e Our Mail Order Catalogue 

e@ Monthly. Members’ Newsletter with the widest Oric 

© Details of our ‘Star Tape of range at 10% discount. 
the Month’ 


ANNUAL MEMBERSHIP 
6 MONTHS TRIAL 
OVERSEAS (1 YEAR) 


To join send fee, name, address and Tel. No. 
or 50p for our Mail Order Catalogue only. 


Members deduct 10% from any item advertised and add p&p 
per item: 40p Software; £10 Hardware. Overseas add extra £1 
per item. 


LATEST ORIC RELEASES Available NOW 


Explode/Overflow .. £7.95 
Word Processor .. £15.00 
Oric Forth (+Man.) . .£14.95 
Dinky Kong 


Centipede 
Invaders 
Xenon! .... 
Chess 

Oric Trek 
The Swamp 
Database . Colossal Adventure 

Hopper R (original mainframe) 
Oric-Munch Adventure Quest .. £9.90 
Zodiac Adventure .. Dungeon Adventure £9.90 
Games Comp. | Space Crystal .... £6.95 


All Prices include VAT and FREE DELIVERY 


ORIC 1 USERS CLUB 


31 North Street, Wareham, Dorset BH20 1AD 
Telephone: 09295 51383 


with your Access, Barclaycard, American Express numbers for 
immediate despatch (24hr. Service) 


Select the correct power and unleash the 
A radioactive ball to wipe out the multi-coloured 
bars. Too much power and the ball will just bounce 
BL STER back. Achieve optimum 
A score and you move 
onto the next level. £4.95 
dimensional maze). Your MEMOR ’ 
job is to find your way out. Keep your MA 
moves low, it improves your score. 
£4.95 P 


Guide your ship, avoiding the 
obstacles and make sure you don't 
cross your own trail. Look out 
RIDER though as you journey on, the 
room to manoeuvre reduces. 
£4.95 5 skill levels. 
Save £1 when you buy the set for £13.85 
POST FREE 
Send a cheque or Postal Order to: 


BYTELAND -PO Box 57 Sawbridgeworth, Herts CM21 9EG. 


ARE YOU SERIOUS 
ABOUT 
YOUR 
ORIC? 


IF SO THEN 
THIS IS THE 
BOOK FOR 

YOU! 


You are trapped in the 
‘Memory Map’ (a three 


THE ORIC COMPANION by Bob Maunder, author 
of the Sinclair ZX Companion series, is a 
detailed manual on the Oric-1l computer, 
indispensable to both BASIC and machine- 
code programmers. It contains 
Reference Guide to all Keywords 
Analysis of Screen Display 
Disassembly of Oric-1l ROM 
and much more 
Send cheques for €6.95 (UK P&P free) to: 


LIN SAC 68 Barker Road, Linthorpe, 
Middlesbrough, Cleveland. TS5 5ES 
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Features 


Hints & Tips 


Program | deals with Discount- 
ing (i.e. compounding in reverse 
to find the present value of a 
given amount of money receiv- 
able in the future). 


Program No. 1 


5 REM DISCOUNTING 
CLS: PRINT 

10 INPUT’ENTER 
AMOUNT 
RECEIVABLE IN Y 
NUMBER OF YEARS 
TIME =£”:M 

15 PRINT 

20 INPUT”’NUMBER OF 
YEARS”; Y 

22 PRINT 

25. INPUT”RATE OF 
INTEREST PER 
ANNUM=%”;R 

30 PRINT 

40 PV=M*1/(1+R/100) t Y 

50 PRINT”’GIVEN 
”-R;”PERCENT OF 
INTEREST PER 
ANNUM, THE 
PRESENT VALUE OF 
:s 

55 PRINT M; 
“RECEIVABLE IN 
*Y;” YEARS TIME IS 
£” -INT(PV*100)/100 

60 END 


Example: 

GIVEN 12 PERCENT OF 
INTEREST PER ANNUM, 
THE PRESENT VALUE OF 
£1250 RECEIVABLE IN 5 
YEARS TIME IS £709-28 


By D. Lam 


CEG 
ON 
Nag! = 


Program 2 is an effective way to 
calculate (a) the sales units/ 
value in order to break even, 
and (b) the sales units/value to 
achieve the budgeted profit for 
the year. 


Program No. 2 


5 REM BREAKEVEN 
CALC 

10 CLS: PRINT 

20 INPUT”SELLING PRICE 

_ PER UNIT =£”;SP 

25 PRINT 

35 INPUT’ VARIABLE 
COST PER UNIT 
=£”":VC 

40 PRINT 

45 INPUT”TOTAL FIXED 
COST PER ANNUM 
= ut oe 

50 PRINT 

60 INPUT”’WHAT IS YOUR 
EXPECTED PROFIT 
FOR THIS YEAR ? 
£”sEP 

65 PRINT 

80 BEU=FC/(SP—VC) 

90 EPU=(FC+EP)/(SP—VC) 

95 PRINT:PRINT:PRINT 

100 PRINT”(1)JBREAKEVEN 
POINT = 
*,INT(BEU);” UNITS” 


105 PRINT 

110 PRINT” BREAKEVEN 
SALES =£”;INT (BEU* 
SP) 

115 PRINT 

120 PRINT”(2) TO 
ACHIEVE THE 
EXPECTED PROFIT, 
YOU MUST BE ABLE 
TO SELL ”; 

125 PRINT INT(EPU); 
“UNITS” 

130 PRINT 

135 PRINT’SALES 
REVENUE TO 
GENERATE THE 
EXPECTED PROFIT 
=£” INT(EPU*SP) 

140 END 


Example: 


SELLING PRICE PER UNIT 
=£? 5 

VARIABLE COST PER UNIT 
=£? 3 

TOTAL FIXED COST PER 
ANNUM =£? 12000 

WHAT IS YOUR EXPECTED 
PROFIT FOR THIS YEAR ? 
£? 9500 


(1) BREAKEVEN POINT = 
6000 UNITS 
BREAKEVEN 
=£30,000 


(2) TO ACHIEVE THE 
EXPECTED PROFIT, 
YOU MUST BE ABLE TO 
SELL 10750 UNITS 


SALES REVENUE TO 
GENERATE THE EXPEC- 
TED PROFIT =£53,750 


SALES 
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Features 


Hints & Tips 


By D. Lam 


1. Type HIRES and draw a few 
lines all over the screen (and 
circles, etc if you want). Then 
type TEXT. Use the CURSOR- 
DOWN key to get down to the 
last line on the screen. Then 
press ESC and finally press the 
DEL keys «aan 


2. Locations 520 and = 521 
return, if PEEKED, different 
numbers depending on which 
key is pressed (much better than 
KEY$ or GET$) location 520 
holds most of the keyboard 
whereas 521 changes if the 
SHIFT or CTRL keys are 
pressed (the two SHIFT keys 
return different values). 


3. In HIRES, if you have 
‘FILL’ED parts of the screen 


with colours, etc you will have 
noticed that you cannot draw a 
line or a CIRCLE over that part. 
To clear a ‘window’: set the 
cursor to the appropriate point 
and FILL the desired area witha 
value of 64. 


4. I have discovered a way of 
retrieving NEW’ed programs 
and am working on a short 
machine code routine to bring 
back a BASIC program which 
has been NEWed (providing no 
errors have since occurred or no 
program lines have been 
entered) I am also working ona 
routine (in BASIC) which will 
highlight all REM statements in 
a program with any desired attri- 
bute. More details later. 


5. CALL 62509 simulates pull- 
ing out and pushing the power 
plug in again. This saves wear on 
the power socket. 


6. The alternate character set 
graphics are made up as follows: 


i 2 
4 8 
16 32 


So, to get a particular shape, add 
up the corresponding blocks and 
add 32. 


eg. to get: 


the code is (1+8+16)+32=57 
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Features 


Hints & Tips 


By C R Burnham 


I have discovered that the following addresses perform the specified 
functions on the ORIC 1 48K Micro. I thought you might like to 
include them in your magazine for other Users. 


Decimal 
Address 
621 


623 


Hex 
Address 
#26D 


#26F 


Function 

Address of text screen 

(Default 48000) but can be 
DOKED with 48280 for example 
which will stop the top 7 lines 
from scrolling (ie. 48000 + 

(7 x 40) = 48280) 


Text lines per screen 

Default 27) but can be POKED 
with 20 to ‘reduce’ the text 
screen size. 


So to scroll line 13 to 27 but leave lines 1 to 12 constant: 


10 CLS: FOR A=1 TO 12: PRINT “LINE”A: NEXT 
20 DOKE 621, 48480: REM BASE ADDR + 12 LINES 
30 POKE 623,14: REM 14 LINES TO SCROLL 


40 FOR A=1 TO 100 


50 PRINT “THIS LINE WILL SCROLL” 
60 NEXT 
70 DOKE 621,48000: REM RESET BASE ADDR 
80 POKE 623,27: REM RESET LINES/SCREEN 
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Regulars 


Dear Sir, 

re Forth on the ORIC 

I am very excited about FORTH 
on the ORIC. It really is an 
excellent implementation of fig- 
FORTH. 


I also enjoy ‘Starting FORTH’ 
by Leo Brodie which is recom- 
mended in the introduction to 
the FORTH Programming Man- 
ual. 


As is pointed out there, there 
are differences between poly- 
FORTH and fig-FORTH. One 
major difference is in the use of 
the word CREATE. If you log 
using it in an attempt to copy 


Dear Sir, 

After acquiring my ORIC-1 
through some difficulty, I must 
say it was well worth the wait. 


As it is not my first personal 
micro, I know enough to recog- 
nize its excellent properties. 
Everything is a plus here, includ- 
ing color (via RCB monitor), 
sound (hooked up to the stereo) 
and the microsoft basic is cer- 
tainly up to standard. The super- 
fast graphics commands are 
specially useful. 


Pace 


Brodie’s examples disaster 
strikes! It is possible to define 
a defining word which has the 
same effect as poly- 
FORTH CREATE.- : STORE 
<BUILDS DOES>; eg the 
phrase— 

STORE LIST n,, ny, ng, will 
create a dictionary entry called 
LIST followed by the numbers 
N,, No and N3. 


Subsequent use of the word 
LIST returns the address of the 
first value. Thus—LIST @ will 
put n, on the top of the 
STACK. LIST 2+ @ will 
return n> 

LIST 4+ @ will return ng 


But, everything considered, 
ORIC-1’s full computing poten- 
tial is not realized without essen- 
tial peripherals. 


Can you please suggest a few 
economical printers (SEIKO- 
SHA AP80A?) and disk drives 
easily available that may be 
plugged in with little or no need 
for interfacing? 


How about a circuit diagram to 
connect a standard switched joy- 
stick to 9 pin D-plug? 


The various examples on the 
ORIC FORTH tape’ which 
make use of calls to functions in 
ROM are fascinating. Can we 
persuade ORIC to publish a list 
of entry points and parameters? 
Then we really could demon- 
strate the combined power of 
FORTH and ORIC! 


Best wishes to ORIC OWNER 
magazine. I’m looking forward 
to receiving my next copy. 

C. Gavin Fairpo 


Thanks for your attention. 
Rodolfo L. Laygo 
Manama, Bahrain 


22 Oric Owner 


Software 


This program was written in 
conjunction with a teacher of 
5—8-year olds. Its aim is to help 
young children to develop an 
understanding of the ideas of 
PHONICS, in a way which is 
both fun and educational. The 
program will work in a 48K 
machine, although I have not 
tried it in a 16K machine. 


The listing contains full instruc- 
tions in the form of REMarks as 
to how the program works and 
how it can be changed to suit the 
user. I have tried to keep its 
operation as structured as poss- 
ible and have included no 
GOTO statements. The main 
section of the program occurs 
between lines 120 and 210, the 


Phonics 
By S. Lucas 


following lines all being sub- 
routines. 


In use, the child will be pre- 
sented with four boxes contain- 
ing 3 similar words and one 
“ODD MAN OUT”. An arrow 
will jump from one word to the 
next at a rate which is deter- 
mined by line 1950. This can 
easily be speeded up if required. 
The child must then press any 
key when the arrow points at the 
odd one out. This was felt to be 
better than asking children of 
this age to use the keyboard 
more fully. They will be given a 
different response for a right or 
wrong answer. The computer 
chooses 10 questions at random 
from 60 alternatives. After the 
ten questions are up, the child 


will be told their score and asked 
to enter their name. It should 
therefore be quite easy to extend 
the program to keep a ‘HIGH 
SCORES’ league which could 
be useful in a class situation. 
Scores of over 5 out of 10 get a 
comment ‘good’ whilst over 7 
get ‘very good’. They will then 
be asked if they want to play 
again. 


To alter the questions, all that is 
necessary is to alter the data 
from line 330 onwards. Each line 
of data contains the 4 words 
followed by the number (out of 
the 4 alternatives) of the right 
answer. The boxes will hold 
words containing up to 5 charac- 
ters only. 
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4IUMQ) IMO 


1 

2R 
3 8 
4 R 
5 A 
6A 
7A 


126 
130 
148 
156 
186 
196 
195 
200 
216 
226 
230 
240 
250 
260 
278 
280 
290 
300 


REM ### PHONICS PROGRAM ### 


EM ### SUITABLE FOR 5/7 YEAR OLDS ### 
EM ### WRITTEN BY S. W. LUCAS ### 
EM ### <C> 1983 ### 
AS="Phonics Program" 
BS="written by" 
CS$="S.W. Lucas 1983" 
HIRES 
PAPER7: INK4 
REM TITLES ON THE HIRES SCREEN 
CURSET20,20,3 
fOR A = 1 TO LEN(AAS) 
CHAR ASC(MIDS$(AAS,A,1)),8,1 
CURMOV16,0,8 
NEXT A 
CURSET 26,36,3 
FOR A = 1 TO LEN(ABS) 
CHAR ASC(MID$(ABS,A,1)) ,@,1 
CURMOV18,@,@ 
NEXT A 
CURSET 20,58,3 
FOR A = 1 TO LEN(ACS) 
CHAR ASC(MID$(ACS$,A,1)) ,0,1 
CURMOV 18,6, 
NEXT A 
DIM AS (68,4) ,B(68) ,C(1@) 
GOSUB 276 
GOSUB1280 
GOSUB 1710 
GOSUB133@ 
sc=@ 
IF (BS="N" OR BS="n") THEN END 
RUN 
END 
REM THIS SECTION OF THE PROGRAM 
REM READS THE DATA INTO THE 2-DIMENSIONAL ARRAY AS (X,Y) 
REM EACH QUESTION HAS 4 ALTERNATIVES 
REM FOLLOWED BY THE NUMBER OF THE CORRECT ALTERNATIVE 
REM THIS ANSWER IS HELD IN THE ARRAY B(X) 
FOR X =1 TO 66 
FOR Y = 1 TO 4 
READ AS (X,Y) 
NEXT Y 


3r®- READ B{X) 


326 
330 
348 
356 
366 
376 
386 
398 


NEXT X 

DATA cat,sat,bat,let,4 
DATA eat,meat,rub,seat,3 
DATA cot,dot,not,set,4 
DATA hill,ball,call,fall,1l 
DATA miss,put,nut,hut,1l 
DATA hiss,miss,mat,kiss,3 
DATA can,pan,tin,ran,3 


400 DATA ham,put,Sam,Pam,2 

410 DATA tap,lap,map,bat,4 

428 DATA hid,rid,put,Sid,3 

430 DATA had,rid,mad,sad,2 

440 DATA rod,rat,cod,pod,2 

450 DATA bake,cake,rake,plate,4 
460 DATA late,ball,hate,gate,2 
470 DATA Jill,Bill,call,pill,3 
480 DATA shell,well,pull,bell,3 
498 DATA pull,bull,hull,call,4 
500 DATA hop,shut,shop,pop,2 
51@ DATA shed,bed,red,hop,4 

526 DATA pop,lip,pip,rip,1l 

53@ DATA dad,bad,hop,lad,3 

540 DATA lad,hit,sit,pit,1l 

55@ DATA fan,sun,fun,bun,1l 

560 DATA lid,hid,bun,kid,3 

578 DATA face,pace,plate,race,3 
58@ DATA meat,heat,seat,sit,4 
59@ DATA fair,hair,chair,chap,4 
608 DATA lid,bin,pin,tin,1 

61@ DATA cut,fish,put,hut,2 

62@ DATA take,lake,cake,hunt,4 
636 DATA car,far,call,bar,3 

648 DATA wake,pin,rake,make,2 


658 
666 
676 
680 
698 
780 
718 


DATA pan,pen,hen,men,1l 
DATA ant,pant,hen,rant,3 
DATA mast,last,fish,past,3 
DATA lock,tank,rock,sock,2 
DATA lamp,vest,ramp,camp,2 
DATA vest,rest,pest,lock,4 
DATA nine,mine,pine,kite,4 


DATA pram,ham,land,Sam,3 

DATA land,sand,hand,lit,4 

DATA hop,pin,pop,top,2 

DATA mark,park,lark,land,4 

DATA pond,jet,pet,met,1 

DATA ride,side,tide,land,4 

DATA play,clay,say,pet,4 

DATA can,pan,plug,ran,3 

DATA pad,mad,dad,cat,4 

DATA map,sap,cap,cat,4 

DATA late,Kate,hate,cat,4 

DATA Tate,cap,gate,rate,2 

DATA car,far,bar,ball,4 

DATA cat,bike,like,mike,l 

DATA late,plank,ate,plate,2 

DATA bank,pull,plank,rank,2 

DATA shade,glade,blade,glad,4 

DATA chop,cop,cot,shop,3 

DATA wait,wake,bake,take,1] 

DATA lake,full,make,rake,2 

DATA shut,run,rut,nut,2 

RETURN 

REM THIS SUBROUTINE DRAWS THE 4 

REM BOXES WHICH HOLD THE CHOICES 

REM WHICH ARE AVAILABLE 

HIRES 

REM NEEDED TO RESET COLOURS 

PAPER7 

INK1 

YY=20 

FOR Q= 1 TO 4 
CURSET YY,50,1 
DRAW 39,08,1 
DRAW @,30,1 

DRAW -39,9,1 

DRAW 6,-30,1 

YY=YY+52 

NEXT Q 

RETURN 

REM THE FOLLOWING SECTION OF THE PROGRAM 
REM CHOOSES A RANDOM SELECTION OF 

REM TEN QUESTIONS OUT OF THE 68 POSSIBLE QUESTIONS 
REM THE ARRAY C(X) IS USED TO HOLD THE 
REM NUMBER OF THE QUESTIONS TO BE ASKED 
REM TO CHOOSE MORE QUESTIONS ALTER THE NEXT LINE 
FOR X=l1 TO 16 

LET C(X)=* INT(RND(1)*66)+1 

REM THE NEXT LINE ENSURES THAT TWO IDENTICAL QUESTIONS 
REM DO NOT COME NEXT TO EACH OTHER 

IF C(X)>1 AND (C(X)=C(X-1)) THEN GOTO 1290 
NEXT X 

RETURN 

SCc=@ 

REM THIS SETS SCORE =@ 

REM THE NEXT SECTION 

REM SETS 18 QUESTIONS 

REM CHOSEN AT RANDOM 

FOR TT = 1 TO 10 

REM THIS CLEARS THE SCREEN 

HIRES: 

REM DRAW THE 4 BOXES AGAIN 

GOSUB 9706 

GOSUB1478@ 

GOSUB1766 

GOSUB214@ 

NEXT TT 

GOSUB2480 

RETURN 

G=B(A) 

A=C (TT) 

REM A #=C(TT) HOLDS THE NUMBER 

REM OF THE CURRENT QUESTION 

REM. G=B(A) HOLDS THE ANSWER 

REM TO THE CURRENT QUESTION 

REM THE NEXT SECTION PRINTS THE 

REM WORDS IN THE BOXES 

PP=22:REM SET X POSITION OF CURSOR FOR THE FIRST WORD 
FOR P= 1 TO 4:REM COUNTEF FOR 4 WORDS 
CURSET PP,66,3 

NS=AS (A,P) 

FOR Z= 1 TO LEN(NS) 

CHAR ASC(MIDS(NS$,Z,1)),@,1 

CURMOV 7,8,@ 

NEXT Z 
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SC 


1635 
1648 
1658 
1678 
168@ 
1698 
17088 
1718 
1720 
1730 
1748 
1766 
1778 
1780 
1798 
18086 
1828 
1838 
1849 
Lov 
1866 
19068 
1919 
1928 
1939 
1956 
1951 
1968 
1976 
1988 
1985 
1988 
2600 
2019 
2015 
2028 
2640 
2050 
2676 
2075 
2686 
2685 
2098 
2695 
2100 
21108 
2126 
2125 
2138 
2146 
2158 
2160 
21890 
2196 
2206 
2269 
2216 
2220 
2236 
2235 
2236 
2246 


2242. 


2245 
2248 
2258 
2252 
2255 
2266 
2262 
2264 
2265 
2267 
2386 
2318 
2315 
2328 
2325 
2338 
2335 
2336 
2346 
2341 
2344 
2346 


PP=PP+52:REM MOVE CURSOR FOR NEXT WORD 
NEXT P 

RETURN 

REM THIS SUBROUTINE IS TO DEFINE 

REM THE CHARACTERS TO BE USED 

REM AS A POINTER 

REM TO POINT TO THE WORDS 

GFS=CHRS (129) 

GGS= CHRS (94) 

GHS= CHRS (124) 

RETURN 

D=32 

E=106 

REM PROCEEDURE TO MOVE ARROW ACROSS 
REM THE SCREEN . TO POINT AT THE 4 BOXES IN TURN 
REM UNTIL ANY KEY IS PRESSED 

REPEAT 

REM D = X POSITION AND E = Y POSITION 
REM OF THE ARROW 

PING 

REM SOUNDS PING EACH TIME THE ARROW MOVES 
CURSET D,E,3 

CHAR94,@,1 

CURMOV 8,8,3 

CHAR124,0,1 

WAIT 156 

REM TO MAKE THE ARROW PAUSE BEFORE MOVING TO THE NEXT BOX 
REM NOW ERASE ARROW 

CURSET D,E,3 

CHAR 94,0,2 

CURMOVG,8,3 

CHAR124,8,2 

D=D+52 

REM MOVE ARROW 

REM F= POSITION ARROW STOPS IN 

REM IF ARROW GOES OFF SCREEN, RESET IT TO POSITION 1 
IF D>198 THEN D=32 

REM RESET CHOICE WHEN ARROW GOES OFF SCREEN 
SS=KEYS 

REM TESTS FOR ANY KEY BEING PRESSED 
UNTIL S$<>"" 

REM SET VALUE OF F 

IF D=32 THEN F=4 

IF D=84 THEN Fel 

IF D=136 THEN F=2 

IF D=188 THEN F=3 

IF F>4 THEN F=4 

IF F <l THEN F=1 

RETURN 

HIRES 

PAPER? 

INK 4 

REM CHECK FOR CORRECT RESPONSE 

IF F=B(A) THEN GOSUB221@ ELSE GOSUB231¢ 
RETURN 

REM SUBROUTINE FOR WRONG ANSWER 
SC=SC+1 

REM INCREMENTS THE SCORE 

REM NOW PRINT ON THE SCREEN RIGHT 
RRS="right" 

CURSET 89,75,3 

FOR Z= 1 TO LEN(RRS) 
CHARASC (MIDS (RR$,Z,1)) ,6,1 

CURMOV8 ,9,@ 

NEXT Z 

REM NOW GIVE A SOUND FOR RIGHT ANSWER 
FOR X=l TO 158 

SOUND1,X,15 

NEXT X 

FOR X=15@ TO 1 STEP -1 

SOUND 1,X,15 

NEXT X 

SOUND 1,0, 

RETURN 

WWS="wrong" 

REM TO WRITE WRONG ON THE SCREEN 
CURSET 89,75,3 

FOR Z= 1 TO LEN(WWS) 
CHARASC (MIDS (WWS,Z,1)) ,8,1 

CURMOV 8,6,8 

NEXT Z 

WWS="It was "+AS(A,B(A)) 

REM TO PRINT THE CORRECT ANSWER 
CURSET 59,158,3 

FOR Z= 1 TO LEN(WWS) 


CHARASC (MIDS (WWS$,Z,1)) ,8,1 
CURMOV 8,6,@ 


NEXT Z 

REM ZAP SOUND FOR WRONG ANSWER 

ZAP 

WAIT 268 

REM PAUSE TO LET CHILD READ WHAT THE ANSWER SHOULD HAVE BEEN 
RETURN 

TEXT 

REM ROUTINE FOR PRINTING RESULTS 

LET as="" 

IF SC>5 THEN A$="good" 

IF SC>7 THEN AS=" very good" 

PAPER 7 . 

INK @ 

PRINT: PRINT: PRINT: PRINT: PRINT" your score was ";SC;" out of 10 
PRINT: PRINT: PRINT"What is your name "; 

INPUT NAS 

PRINT: PRINT: PRINTCHRS (129); "Thank you for playing ";CHRS (132); 
PRINT: PRINT: PRINTCHRS (138);"Do you want to play again?" 

GETBS$ 

RETURN 


SUI}SI] SO1UOUd 


9TeMATOS 


Software 


Frog Run 


By M. Caldwell 


Frog Run, this program is better 
known to most as ‘FROGGER’. 
The game fits into all models, 
the only thing that needs to be 
changed are the addresses for 
the user definable graphics. 
After typing in the program, 
and before you run it make sure 
that 


a) THE KEYBOARD CLICK 
IS ON. 

b) THE CURSOR IS FLASH- 
ING. 


On running the program you will 
find a different way of showing a 
title. The way the title (and the 
traffic) are done is by using the 
LEFT$ and the RIGHT$ func- 
tions (chapter 8 in the ORIC 
manual). 


WHEN desired, press any key 
and the game begins. The game 
is in two parts, when the screen 


clears you are on level one, this 
bit is the simple bit (or to some it 
is). When you reach 500 points 
the game moves on to level two 
(or the rush hour). The game is 
very similar to the original but 
has a few differences, e.g. it has 
no lake. It has ten lanes of 
traffic, but can be improved to 
twelve by adding this. . . 


128 
13,B$ 


PLOT1,15,B$:PLOT1,- 


THESE two lines make the 
game a lot harder on both levels, 
as they plot a lane of traffic on 
either side of the snake (or 
snakes on level two). 


THERE is no time limit (yippee 
I hear you shout) but you only 
get five lives. My highest score is 
displayed on the screen but I 
know that will be beaten by the 
ED. 


Here is what each line (well 
nearly each line) does. 


1-90 Sets variables and 

GOSUBs all the routines. 

120-280 The main loop, 
which moves, plots the traffic, 
moves and plots the man, checks 
to see if anything has been hit. 
3000-3020 Defines A$, B$, C$ 
4000-4030 Lose a life 
5000-5060 Sets up the screen 
6000-6100 No lives left 
7000-7060 The rush hour 


8000-8080 User definable 
graphics 
9000-9190 Title and instruc- 
tions 

Variables 
sc=SCORE L=LIVES 
HS=HIGH SCORE A,B 


SCREEN POSITIONS 


HAPPY HOPPING 
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LZ 4aUME IUCE 


1 CLS 
2 PRINTCHRS(6)CHRS$(17) 
4 HS=700 

5 GOSUB8000'U.D.G 

8 GOSsUB9000 

10 sc=0 

15 Ls5 

18 PAPER7:INKO 

20 GOSUB5000'SCREEN 

90 GosuB3000 

95 FORA=2T026:S=INT(RND(1)*2)+1:PLOTO,A,S:NEXT 

96 PLOTO,14,16 

100 A=26 

110 B=l19 

112 PLOT9,O,STRS$(SC) 

120 PLOTB,A,” ™ 

125 PLOT1,24,A$:PLOT1,22,B$: PLOT1,12,A$:PLOT1,10,B$ 
130 X$=KEYS 

140 IFX$=""THEN160 

160 IFX$="; “THENA=A-1 

165 Q=SCRN(B,A) 

170 LFX$="."ANDA%26THENA=A+1 

175 PLOT1,14,C$ 

180 IFX$="Z"ANDB%1THENB=B-1 

190 IFX$="X"ANDB%37THENB=B+1 

200 PLOT1,20,A$:PLOT1,18,B$: PLOT1,8,A$:PLOT1,6,B$ 
210 PLOT1,16,A$: PLOT1,4,A$ 

220 Q=SCRN(B,A) 

225 IFQ=61THENSC#=SC+100: PING: PLOT9,0,STR$(SC):GOTO100 
230 IFQ%432THEN4OOO'LOOSE A LIFE 

235 IFSC=500THENGOSUB7000 

240 PLOTB,A,"£$" 

250 LS$=LEFTS$(A$,1):RS=*RIGHTS(AS, 37) 

255 L2$=LEFTS(C$,37):R2$=RIGHTS(CS$,1) 

260 LIS=LEFTS(B$,37):R1S*RIGHTS$(BS,1) 

270 AS=RS+LS$:B$=R1S+L1$ 

275 C$=R2S+L2$ 

280 GOTO120 


3000 AS=" '% '% % = 
3010 BS="Z& hE %& 46 =" 
3015 cs="/ * 


3020 RETURN 

4000 EXPLODE:WAITSO 

4001 L=L-1:IFL=OTHEN6000 
4010 PLOT21,0,STRS(L) . 
4030 GoTO100 

5000 CLS 


5010 PLOT3,0,"SCORE “:PLOT1,0,1:PLOT15,0,"LIVES 5":PLOT10,0,7:PLOTO 


.0,20 

5020 FORA=0T037:PLOTA,2,"=":NEXT 
5025 PLOT26,0, "HI-SCORE” 

5028 PLOT34,0,STRS(HS) 


5030 
5040 
5050 
5060 
6000 
6010 
6020 
6030 
6040 


POINTS" 


6050 
6060 
6070 
6080 
6090 
6100 
7000 
7010 
7020 
7040 
7045 
7050 
7060 
8000 
8010 
8020 
8040 
8045 
8050 
4,24 
8060 


"8070 


8080 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 


PLOTO,2,0 

PLOTO,14,16 

FORA=1T026:S=INT(RND(1)*5)+1:PLOTO,A,S 

RETURN 

PLOT22,0,"0": 

WAIT 300;CLS 

PRINT: PRINT: PRINT: PRINT"HARD LUCK YOU RAN OUT OF LIVES 
PRINT:PRINT"YOU GOT A SCORE OF ";SC" POINTS” 
IFSCRHSTHENPRINT: PRINT: PRINT"YOU BEAT THE HIGH SCORE OF “;HS" 


IFSC4HSTHENHS=SC 

PRINT: PRINT: PRINT"ANOTHER GO Y/N” 

GETAS 

IFAS="N"THENEND 

IFAS="Y "THENCOTO8 

GOT06070 

PLOT3,14, "THE RUSH HOUR IS ABOUT TO BEGIN!!" 
AS=" |; ; ya 4 > 4 
cs="/ / / / / / / e 
BS=" %& 0 *G X& "( %& %& a 
SC=SC+50:PLOT9,0,STRS(SC) 

WAIT300: PLOT3, 14," 

RETURN 

FORA=46 3607046423 

READD 

POKEA,D 

NEXT 

RETURN 
DATA1,3,5,15,7,2,4,8,32,48,40, 60, 56,16,8,4,63,63,63,63,63,63,2 


DATA48,48,48,63,63,63,6,6 
DATA3,3,3,63,63,63,24,24,48,48,48,63,63,63,6,6 
DATAO,0,31,31,31,63,1,1,0,0,60,60,60,63, 32, 32 
PAPERO: INK7:CLS 

Z$="FROG RUN FROG RUN FROG RUN “ 
X$=CHRS(96)+" MICHEAL CALDWELL AUGUST 1983 
REPEAT 

PLOT1,2,Z$:PLOT1,26,X$ 
CS=LEFT$(Z$,37):FS=RIGHTS(ZS,1) 

Z$=FS+GS 

TS=LEFTS(X$,37):Y$=RIGHTS(X$,1) 

X$=YS+TS$ 

PLOTO,4,”"HELP YOUR FROG ACROSS THE VERY BUSY” 
PLOTO,6,"ROAD YOU GET 100 POINTS FACH TIME YOU" 
PLOTO,8,"DO IT.BUT IT GETS HARDER AS WELL” 
PLOTO,12,"USE THE KEYS:” 

PLOTO,14,"Z - LEFT X - RIGHT 
PLOTO,16,"; - UP - - DOWN 
PLOT4,22,"PRESS ANY KEY TO START” 

PLOT2,22,12 

AS=KEYS 

UNTILAS&&"" 

RETURN 
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How to get the most out 
of your Oric-1 
Mass Delete Line Facility 


for Oric BASIC 
By G. M. Phillips 


Along with RENUMBER, the 
DELETE function is one of the 
major omissions in ORIC 
BASIC. It is often useful to be 
able to take out chunks of a large 
program, particularly when 
starting a new one. 


For example, if you want to copy 
the tape handling subroutine 
from the ORIC BASE program, 
you could delete all lines except 
20000 onwards. 


The following machine-code 
subroutine gives you this facil- 
ity, without too much fuss. 


The program should be entered 
as below, and then RUN. (It 
would be advisable to save the 
BASIC program as well.) 


After a few seconds, save the 
RAM area #400 to #4FF onto 
tape — this is the delete pro- 
gram. 


ey Mee, Sie Sa Te Ye a eR 
bate beter teeter 
a 


Then, whenever you have a pro- 
gram which is to be partially 
deleted, CLOAD the machine- 
code program, and type in (as an 
immediate command): 


DOKEO, line-from: DOKE2, 
line-no to: CALL#400 


Do not worry if the message 
‘Syntax error’ is printed. If the 
BASIC hangs up check that your 
BASIC program was typed cor- 
rectly. 


Example: 
DOKEO, 200:DOKE2, 
1000:CALL#400 


would delete lines 200-1000. 


Note that the program may work 
incorrectly if the line numbers 
supplied do not exist. 


For Microtan owners, the rou- 
tine has been dissassembled 
below, and should need little 
conversion. (Change LDA #5 
to LDA #4 — use TANBUG to 
run) 
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4400: 
4402: 
4404: 
4406: 
4408: 
440A: 
440C: 
440E: 
4410: 
4412: 
4414: 
4416: 
4417: 
4419: 
441B: 
441D: 
441F: 
4421: 
4423: 
4424: 
4426: 
4428: 
442A: 
442C: 
442E: 
4430: 
A432: 
4434: 
4436: 
4438: 
A4SA: 
443C: 
443E: 
4440: 
4441: 
4443: 
4445: 
4447: 
4449: 
444A: 
444C: 
444E: 
4450: 
4452: 
4454: 


20 REM RUN ONCE AND SAVE #400-#4FF 

30 X=#400 

40 READDS$: IFD$="Z"THEN100 

50 FORZ=1TOLEN(D#) /2: Z1=VAL ("#"+MIDS (DS, (Z-1) *2+1, 2) ): POKEX, Z1: X=X+ 
1:NEXT 

60 GOTO 40 

100 END 

200 DATAAI058545A7018544A001B144F032A002B 1 44C500D007CSEB1 44C501F 013A 
OOOBI 

210 DATA448550C8B 1 448545A5508544A900F 0D8AS448546A5458547A001B1446F00 
2D001 

220 DATAG60A002B1 46C502D007C8B1 46CS503F 01 3A000B1 468550C8B 1 468547A5508 
346A9 

230 DATAOQOFODSA000B 1 468550CS8B 1 468547A550854638AS46E544854AAS47E5458 
S4BA0 

240 DATAO1B146F042855388B 1 46855238B 146E54A91 4691 44C8B146E54B91446914 
4C8B1 

250 DATA469144C8B1469144C8B1 469 1 44D0F 99838465448544A54569008545A5528 
3946A5 

260 DATAS38547A900F OB8AI009 1 44089 1 44089 144A544186902859C8S9EBSA0A5S4 
96900 

270 DATASS9DSS59F85A1 40, Z 


os * LDA #405 4456: C8 INY 44A8: C8 INY 
45 STA $45 4457: B1 46 LDA ($46),Y 4409: Bl 46 LDA 
o1 LDA #$01 4459: 85 47 STA $47 440QB: 91 44 STA 
44 STA $44 445B: AS 50 LDA $50 44AD: DO F9 BNE 
o1 LDY #$01 445D: 85 46 STA $46 440F: 98 TYA 
44 LDA (%44),Y 445F: AI 00 LDA #$00 44B0: 38 SEC 
32 BEG $4440 4461: FO DS BEQ $4438 44B1: 65 44 ADC 
o2 LDY #602 4463: AO 00 LDY #00 44BS: 85 44 STA 
44 LDA ($44),Y 4465: Bi 46 LDA ($46),Y 44B5: AS 45 LDA 
00 CMP $00 4467: 85 50 STA $50 44B7: 69 00 ADC 
07 BNE %441D 4469: CB INY 44B9: 85 45 STA 

INY 446A: B1 46 LDA ($46),Y 44BB: AS 52 LDA 
44 LDA ($44),Y 446C: 85 47 STA $47 44BD: 85 46 STA 
O1 CMP $01 446E: AS 50 LDA $50 44BF: AS 53 LDA 
13 BEQ $4430 4470: 85 46 STA $46 44C1: 85 47 STA 
fore) LDY #00 4472: 38 SEC 4403: AI 00 LDA 
44 LDA ($44),Y 4473: AS 46 LDA $46 44C5: FO BS BEQ 
50 STA $50 4475: E5 44 SBC $44 44C7: A? 00 LDA 

INY 4477: 85 4A STA $40 44C9: 91 44 STA 
44 LDA ($44),Y 4479: AS 47 LDA $47 44CB: C8 INY 
45 STA $45 447B: E5 45 SBC $45 44CC: 91 44 STA 
50 LDA $50 447D: 85 4B STA $4B 44CE: C8 INY 
44 STA $44 447F: AO O1 LDY #$01 44CF: 91 44 STA 
00 LDA #$00 4481: Bi 46 LDA (%46),Y 44D1i: AS 44 LDA 
Ds BEG $4408 4483: FO 42 BEQ 4%44C7 44D3: 18 CLC 
44 LDA $44 4485: 985 53 STA $53 44D4: 69 02 ADC 
46 STA $464 4487: 88 DEY 44D6: 85 9C STA 
45 LDA $45 4488: Bl 46 LDA ($46),Y 44D8: 85 9E STA 
47 STA $47 448A: 85 52 STA $52 44DA: 85 AO STA 
o1 LDY #$01 448C: 38 SEC 44pC: AS 45 LDA 
46 LDA (%46),Y 448D: Bi 46 LDA ($46),Y 44DE: 67 00 ADC 
02 BEQ $4440 448F: E5 4A SBC $4A 44E0: 85 9D STA 
oO1 BNE $4441 4491: 91 46 STA ($46),Y 44E2: 85 9F STA 

RTS 4493: 91 44 STA ($44),Y 44E4: 85 Al STA 
02 LDY #$02 4495: C8 INY 44E6: 60 RTS 
46 LDA ($46),Y 4496: Bl 46 LDA ($46),Y 44E7: EA NOP 
02 CMP $02 4498: ES 4B SBC $4B 44E8: EA NOP 
07 BNE $4450 449A: 91 46 STA ($46),Y 44E9: EA NOP 

INY 449C: 91 44 STA ($44),Y 44EA: EA NOP 
46 LDA ($46),Y 449E: C8 INY 44EB: EA NOP 
os CMP $03 449F: Bi 46 LDA (%46),Y 44EC: EA NOP 
13 BEQ $4463 44Al: 91 44 STA ($44),Y 44ED: EA NOP 
fore) LDY #%00 4403: CB INY 44EE: EA NOP 
46 LDA (%46),Y 4404: Bl 46 LDA ($46),Y 44EF: EA NOP 
50 STA #50 44A6: 91 44 STA ($44),Y 44FO: EA NOP 


($46), 
($44),Y 
$4408 


$44 
$44 
$45 
#500 
$45 
$52 
$46 
$53 
$47 
#800 
$447F 
#500 
($44),Y 


($44),Y 


($44),Y 
$44 


#602 
$9C 
$9E 
$AO 
$45 
#$00 
$9D 
$9F 
#A1 
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Power Maze of Agrenon 
‘By D. Hunt 


1 2 3 4 4 6 e ° 0 WT Bows 1S 16 mu 1s 19 200 21 22 


| 2 8 4+ 5 6 7 &8 9 W 12 13 4 1S 16 17 18 19 20 2 22 


The game is played in a 25 by 25 
preset maze, the game is in real 
time and the aim is to kill the 
‘vicious power matrix’, the 
“GEOMITRIX” and to collect 
the “Diametric Tapestries” 
which are spread throughout the 
maze. The maze is divided into 3 
sectors separated by doors, the 
exit is at location 25, 25. 

The “GEOMITRIX” is des- 
troyed by firing ‘High power 
energy zones’ at it which are 
spread throughout the maze. 
There is also a status check 
telling you where the “GEO- 
MITRIX” is, how many ‘High 
power energy zones’ there are 
left and how much treasure you 
have. There are also ratings at 
the end. 
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5 HIMEM35006 


CLS 

INK7: PAPERG 

TEXT 

FORN=48436T048039: POKEN,32:NEXT 
DEFFNB(N) =INT(RND (1) *N+1) 
POKE#26A,16 

DIMA(25,25) ,B(6,2) 

GOSUB15606 

GOSUB290008 

CLS 


PRINT 
PRINTCHRS (4) ;CHRS (27); "NYOU ARE ENTERING THE POWER MAZE OF":PRIN 


PRINTCHRS (27); "N AGRENON" 

PRINTCHRS (4) 

PRINTCHRS (4) 

MUSIC1,3,1,0 

MUSIC2,3,4,9 

MUSIC3,3,8,0 

PLAY7,0,7,25000 

GOSUB1000 

T=9999:A=1:B=1 

C=3:PP=3:Q=0 

PLAYG,0,0,0 

PING 

GOSUB3066 

CLS 

PRINT CHRS (11) ;CHRS$ (11); 
PRINT" "s CHRS (27); "DTIME="; INT (T/100) +1; "TREASURE=_" 
PRINT" ";CHRS (27) ; "CWHICH WAY ??" 
AS=KEYS 

IFAS<>""THENGOTO156 

T=T-1 
IFT<OTHENT=@ : GOTO 30006 

GoTo 75 

D=ASC (AS) 
IFA=25ANDB=25THENGOTO 31008 
IFHH=1 THENPLAY@,0,%,0:HH=@ 
IFD=11THENGOSUB2006:GOTO75 
IFD=8THENC=C-1: I1FC<1THENC=4 
IFD=9THENC=C+1: 1IFC>4THENC=1 
IFD=7@6THENGOSUB25600 
IFD=32THENGOSUB13008 
GOSUB21000 
IFA=OANDB=PTHENGOTO 23006 
GOSUB3000 

GOTO75 


7R 


1600 FORN=1T025 
1616 FORM=1T025 
1626 READA 

1036 A(M,N)=A 
1046 NEXT 

1658 NEXT 

1068 DATAY,5,3,9 
1065 DATA8,3,10, 
1676 DATA1G,8,4, 
1675 DATA1G,12,3 
1688 DATA12,1,4, 
1085 DATA27,16,1 
4,14,16 

1698 DATA16,12,3,12, 
1095 DATA1@,9,6,27,1 
1106 DATA12,6,13,0,5 
ree DATAY,3,11,14,1 


WNe 


1118 DATA1G,14,8,7,11,16,10,12,3,9,6,12,2,8,2,12,3,10,9,2,8,6,13,2, 


16 


1115 DATA8,3,8,3,8,4,0,261,2,10,9,5,0,2,8,5, 661:2i5:209e Sieh 


+8, 
112@ DATA10,12,2,12,0,3,10,9,2,10,14,9,6,12,2,9,4,2,11,9,6,18,11,9, 


7 


1125 DATA12,5,0,1,2,12,2,16,12,0,3,14,11,11,12,2,13,2,12,0,5,0,4,4, 


7 
1130 DATA29,5,2,16,12,3,14112,576487718447318 4114457843 414,9143 


1135 DATA9,3,12,2,11,873¢9¢ 523,121,576 727,12,6414,13,5,2,12,1,6,18, 


14 


1140 DATA1@,12,5,2,12,6,18,10,29,5,3,13,15455,7511,9754441,6,27,18, 


pl 


1150 DATA12,3,13,2,13,1,440,5,3,8,7,10,9,7,9,2,/10,11,11,10,11,12,4, 


6 


DATA11,8,5,8,5,2,11,10,11,12,6,9,60,6,9,6,10,12,6,12,4,6,9,1,7 
DATA12,2,11,12,1,6,10,10,12,3,9,6,10,11,8,57451437297543, 30,8, 


DATAS ,4,8,5424944 4875 42414,9 4844 46513,1,6,10,9,7,8,5,2,10 
DATA14,9,2,9,2,12,3,10,9,4,261,2,18,9,1,5,0,5,6,10,11,10,9,6,1 


DATA11,14,8,2,8,5,8,6,10,13,1,4 8727847410 7971 744044424972 
DATA8,5,2,12,6,9,6,9,4,3,10,13,6,18,10,11,8,6,16,11,18,9,4,2,1 


MATA30,13,6,13,5 

eoRELi cone 7136574,574,5,6,12,5,5,6,36,12,4,5,6,12,6,14,13,4,7 
A=FNB (25) :B=FNB(25) 
IFA(A,B) AND32THENGOTO1 226 
A(A,B) =A(A,B) OR32 

C=FNB (25) :D=FNB(25) 
IFA(C,D) AND64TAENGOTO1L245 
A(C,D) =A(C,D) OR64 

NEXT 

O=FNB (25) : P=FNB(25) 
A(O,P) =A(0,P)OR128 

RETURN 
IFA(A,B) AND2* (C-1) THENGOTO2199 
IFC=1THENB=B-1 
IFC=2THENA=A+1 

IFC=3 THENB=B+1 
IFC=4THENA=A-1 

IF (A(A,B) AND512) =@THENA (A,B) =A(A,B) OR512: UU=UUt1 
GOSUB3060 

RETURN 

BS="YOU CAN'T GO IN THIS DIRECTION" 
CURSET27,88,3 

FORN=1T039 

IFMIDS (BS,N,1)=" "THENCURMOV4 ,@, 3ELSECURMOV6 , 0,3 
CHARASC (MIDS (BS,N,1)) ,@,1 
NEXT 

RETURN 

E=A:F=B:BB=1 

HIRES: POKE#26A,10 
PATTERN255 

GOSUB408G 

GOSUB5006 

GOSUB3596 

GOSUB3600 

GOSUB4008 

GOSUB6800 

GOSUB3508 

GOSUB3668 

GOSUB4608 

GOSUB7880 

GOSUB3508 

GOSUB3688 

GOSUB4680 

GOSUB8G86 

GOSUB 3508 

GOSUB3680 

GOSUB4006 

GOSUB9O0@0 

GOSUB3508 

GOSUB3600 

GOSUB4009 

GOSUB1@668 

GOSUB350@ 

GOSUB3608 

GOSUB4008 

GOSUB12066 

RETURN 

IFC=1THENF=F-1 
IFC=2THENE=E+1 
IFC=3THENF=F+1 

IFC=4 THENE=E-1 

BB=BB+1 

RETURN 

IFFF<>@THENPOP: RETURN 
NW=A(E,F) AND1 

EW=A (EF) AND2 

SW=A(E,F) AND4 

WW=A(E,F) AND8 

IFA(E,F) AND64THENGOSUB1706@:HH=1 
TR=A(E,F) AND16 
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IFTR<>@THENGOSUB456G6 

IF(A(E,F) AND256) ANDBB> 1 THENGOSUB19888 
IFE=OANDF=PANDBB>1ANDPP>@ ANDRR=@THENGOSUB169@@:HH=1 
FF=NW: RW=EW: BW=SW:LW=WW 

IFC=1THENRETURN 

FORN=1TOC-1 


.G=FF: FF=RW: RW=BW: BW=LW: LW=G 


NEXT 

RETURN 

CURSET99,88,1 

DRAW49,0,1 

DRAWG, 22,1 

DRAW-40,0,1 

DRAWG,-22,1 

DRAW4@, 22,1 

CURSET139,88,1 

DRAW-40,22,1 

RETURN 

IFTR=9THENGOTO5@9 

R=R+FN B(58) +58 

A(E,F) =A(E,F) -16 

PLAY1,@,0,@:FORN=1T0 6:FORM=6TOGSTEP-1 
MUSIC1,M,N,1@:NEXT:NEXT: PLAYG,0,0,0 
IFFF=@THENGOTO5G 20 
CURSET3@,25,3:DRAW179,@,1:DRAWG,148,1:DRAW-179,0,1:DRAWO,-148, 


PW=A(E,F)AND 32 

IF PW<>@ THENGOTO 14066 
IFLW=8THENGOTO5108 
CURSETG@ ,6,3 
DRAW30,25,1:DRAWG,148,1:DRAW-36,25,1 
GOTO5146 

CURSETG, 25,3 
DRAW3G,0,1 
DRAWG,148,1 
DRAW-30,0,1 
IFRW=@THENGOTO5 206 
CURSET239,0,3 
DRAW-30,25,1 
DRAWG,148,1 
DRAW30,25,1 

RETURN 
CURSET239,25,3 
DRAW-30,0,1 
DRAWG,148,1 
DRAW3G,6,1 

RETURN 
IFFF=@THENGOT06066 
CURSETS4, 45, 3:DRAW130,@,1:DRAWG,108,1:DRAW-136,0,1:DRAWG,-108, 


IFLW=@THENGOTO61066 

CURSET36,25,3 

DRAW24, 2G,1:DRAWG,108,1:DRAW-24, 26,1 
GOTO6 148 

CURSET30,45,3 

DRAW24,0,1 

DRAWG ,168,1 

DRAW-24,0,1 

IFRW=@THENGOTO6 208 

CURSET208,25,3 

DRAW-24,20,1 

DRAWG, 108,1 . 

DRAW24, 20,1 

RETURN 

CURSET208 ,45,3 

DRAW-24,0,1 

DRAWG,108,1 

DRAW24,0,1 

RETURN 

IFFF=@THENGOTO7066 
CURSET77,64,3:DRAW84,9,1:DRAW@,70,1:DRAW-84,0,1:DRAWO,-78,1 
IFLW=@ THENGOTO7100 

CURSET54,45,3 
DRAW23,19,1:DRAWG,70,1:DRAW-23,19,1 
GOTO714@ 

CURSET54,64,3 

DRAW23,0,1 

DRAWG, 70,1 

DRAW-23,9,1 


7149 
7150 
7160 
7170 
7180 
7196 
7200 
7210 
7226 
7236 
7240 
89a 
8g1¢d 
8060 
8070 
8080 
8096 
81g 
8110 
8120 
8130 
8149 
8150 
816 
8170 
818d 
8190 
8200 
8210 
8220 
8230 
8240 
9900 
9910 
9060 
9070 
9080 
9090 
9106 
9116 
9126 
9136 
9146 
9150 
9169 
9170 
9186 
9190 
9200 
9230 
9226 
9230 
9246 
19990 
19919 
19620 
16970 
10980 
10996 
19190 
19116 
19126 
19136 
19146 
10156 
19168 
10176 
16189 
19196 
19209 
16216 
19226 
16239 
10249 
12000 
12965 


120198 


12920 
12638 


IFPRW=A8THENGOTOT2€0@ 
CURSET184,45,3 
DRAW-23,19,1 
DRAWG, 79,1 
DRAW23,19,1 
RETURN 
CURSET184,64,3 
DRAW-23,8,1 
DRAWG,76,1 
DRAW23,8,1 
RETURN 
IFFF=@THENGOTO8068 
CURSET94,78,3:DRAW59,0,1:DRAW 0,42,1:DRAW-50,0,1:DRAWG,-42,1 
IFLW=@ THENGOTO8 190 
CURSET77,64,3 
DRAW17,14,1:DRAW@,42,1:DRAW-17,14,1 
GOTO8149 
CURSET77,78,3 
DRAW17,8,1 
DRAWG, 42,1 
DRAW-17,0,1 
IFRW=@THENGOTO8 298 
CURSET161,64,3 
DRAW-17,14,1 
DRAW, 42,1 
DRAW17,14,1 
RETURN 
CURSET161,78,3 
DRAW-17,8,1 
DRAWG, 42,1 
DRAW17,@,1 
RETURN 
IFFF=6THENGOTO9G60 
CURSET107,89,3:DRAW24,0,1:DRAW @,20,1:DRAW-24,0,1:DRAWG,-20,1 
IFLW=98THENGOTO9 106 
CURSET94,78,3 
DRAW13,11,1:DRAW@,20,1:DRAW-13,11,1 
GOTO914¢ 
CURSET94,89,3 
DRAW13,9,1 
DRAWG, 20,1 
DRAW-13,8,1 
IFRW=@THENGOTO9 260 
CURSET144,78,3 
DRAW-13,11,1 
DRAWG, 20,1 
DRAW13,11,1 
RETURN 
CURSET144,89,3 
DRAW=23,0,1 
DRAWG, 28,1 
DRAW13,0,1 
RETURN 

IFFF=GTHENGOTO10626 
CURSET114,95,3:DRAW16,@0,1:DRAW @,8,1:DRAW-10,0,1:DRAWG,-8,1 
IFLW=@THENGOTO1619@ 
CURSET107,89,3 
DRAW? ,6,1:DRAWO,8,1:DRAW-7,6,1 
GOTO10149 
CURSET107,95,3 
DRAW7,@,1 

DRAWG,8,1 
DRAW-7,0,1 

IFRW=@ THENGOTO16208 
CURSET131,89,3 
DRAW-7,6,1 

DRAW, 8,1 

DRAW7,6,1 

RETURN 
CURSET131,95,3 
DRAW-7,6,1 
DRAWO,8,1 

DRAW7,@,1 

RETURN 

PATTERN255 
FORN#=114T0124 
CURSETN,95,1 

DRAW, 8,1 

NEXT 
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12646 
13000 
13601 
136062 
13603 
13604 
13665 
13006 
13016 
13826 
13636 
13046 
13058 
13652 
13054 
13056 
13058 
13068 
13070 
13086 
13696 
13095 
13106 
13165 
13107 
13111 
13112 
13114 
13116 
13117 
13118 
13119 


RETURN 
TEXT 

SOUND 1,FN B(500) ,@ 

SOUND 2,FN B(500) ,@ 

SOUND 3,FN B(5@@) ,@ 

PLAY 7,0,4,1008 

CLS 

POKE #26A,16 

PRINT 

PRINTCHRS (27) ;CHR$ (4); "J YOU HAVE 
PRINT 

PRINT CHRS$(27);"J YOUR POSITION I 
PRINT 

IF C=l THEN B$="NORTH" 

IF C=2 THEN BS="EAST" 

IF C=3 THEN BS$="SOUTH" 

IF C=4 THEN B$="WEST" 

PRINT CHRS$(27);"J YOU ARE FACING 
PRINT 

PRINT 

PRINT 

IF PP=@ THEN GOTO 13187 

PRINT CHR$(27);"J THE GEOMOTRIX I 
GOTO 13111 

PRINT CHR$(27);"J THE GEOMITRIX I 
PRINT:IF Q=1THEN BS="" ELSE BS=" 
PRINT CHRS(27);"J YOU HAVE ";Q;" 
PRINT 

PRINT CHRS(27);"J ZONE";BS;" LEFT 
PRINT 

PRINT 


PRINT: PRINT CHRS$(27);7"J PRESS SPACE BAR TO CONTINUE": PRINT: PR 


INTCHRS (4) 


13126 
13125 
13136 
13132 
13135 
13156 
13176 
13188 
13185 
131990 
13195 
13205 
13206 
13216 
13297 
14606 
14616 
14026 
14036 
14046 
140645 
14647 
14656 
14660 
14665 
14067 
14678 
14086 
14698 
14100 
14116 
14126 
14121 
14122 
14123 
14125 
14127 
14136 
14131 
14132 
14133 
14134 
14135 
14136 
14137 
14138 


PRINT" ";CHRS(27);"E TIME IS RUNN 
PRINT CHRS (4); 

FOR N=1 TO13:PRINTCHRS (11); :NEXT 
BS="" 

REPEAT 

PRINT CHRS$ (11); 

PRINT CHRS$(27);"J TIME="; INT (T/10 
T=T-10 

IF T<@ THEN PRINT CHRS$(4):GOTO 36 
UNTIL KEY$<>"" 

PRINT CHRS (4) 

PLAY 6,9,0,0 

HIRES 

RETURN 

TEXT 

FOR N#=1 TO 199 STEP 16 

CURSET @,N,3 

DRAW 126,100-N,1 

CURSET 239,N,3 

DRAW -120,100-N,1 

SOUND 1,N,9 

PLAY 1,0,3,506 

NEXT 

FOR N=16 TO 99 STEP 10 

SOUND 1,N*2,0 

PLAY 1,0,3,500 


CURSET 120,100,3 
CIRCLE N,l 

NEXT 

CLS 

PRINT 

PRINT CHRS (27) ;CHRS (4); "N 


FOR N=1 TO 100 

CURSET FN B{230),fN B(L9@) 3 
CHAR 35,6,1 

SOUND 1,N,@ 

SOUND 2,156-N,@ 

SOUND 3,50,8 

PLAY 7,0,3,508 

NEXT 

PLAY 0,0,0,0 

EXPLODE:IF QQ=1 THEN GOTO 29125 
A(A,B) =A(A,B) -32 

PRINT CHRS (4); 

A=FN B(25):B=FN B(25) 

IF A(A,B) AND 32 THEN GOTO 14137 


_“;R;"OF TREASURE" 


S ";A;B 


";BS 


S aT "30;7P 
S DEAD" 
" 


HIGH POWER ENERGY" 


ING OUT FAST!!" 


Q)+1 


Or) 


!!!SPATIAL ANOMALY!!!" 


14139 A(A,B)=A(A,B) OR 32 

14146 A=FN B(25) 

14158 B=FN B(25) 

14155 IF A(A,B) AND 16 THEN GOTO 14140 

14157 IF A=25 AND B=25 THEN GOTO 14146 

14160 C=FN B(4) 

14165 T=T+FN B(1000)-500 

14170 POP:GOSUB 3000:RETURN 

15600 PRINT 

15061 INK 3 

15002 POKE #26A,19 

15605 PRINT CHRS (4); 

15018 PRINT CHRS$ (27); "D";CHRS (27); "J POWER MAZE OF AGRENON" 
15615 PRINT CHRS (4) 

15620 PRINT 

15630 PRINT CHRS$(96);" LUPTON/HUNT 1983" 

15035 PRINT 

15040 PRINT"In your search for rare earth elements"; 

15650 PRINT"you have landed on the planet Agrenon."; 

15068 PRINT 

15670 PRINT"Where you have discovered the" 

15680 PRINT"remains of an ancient pan dimensional" 

15698 PRINT"power civilisation" 

15695 PRINT 

15166 PRINT"In searching one of the settlements" 

15118 PRINT"you have fallen through a power matrix"; 

15136 PRINT"into the power maze of Agrenon" 

15146 PRINT:PRINT"This was a maze built by the ancient" 

15145 PRINT"race filled with diametric tapestries" 

15158 PRINT"and used to test their own kind" 

15160 PRINT 

15170 PRINT: PRINT: PRINT: PRINT 

15180 PRINT CHR$(27);"L PRESS ANY KEY TO CONTINUE" 

15190 BS=KEY$:IF BS="" THEN GOTO 15196 

15195 BS="" 

15268 CLS 

15203 INK 6 

15265 PRINT CHRS (4); 

15210 PRINT 

15220 PRINT CHRS$ (27); "B";CHRS (27); "J POWER MAZE OF AGRENON" 
15225 PRINT:PRINT 

15227 PRINT CHRS (4); 

15230 PRINT"Within the maze there is a vicious" 

15246 PRINT"spatial vortex of great intelligence" 

15245 PRINT"known as the"; 

1525@ PRINT CHRS (27); "D";CHRS (27) ; "LGEOMITRIX"; CHRS (27) ; "G";CHRS (27 
);"H"; 

15251 PRINTCHRS (27); "F"; 

15252 PRINT"who when you" 

15254 PRINT"are caught will distort your spatial" 

15257 PRINT"sector and you will be quickly" 

15260 PRINT"over come by the deadly spores of the” 

15280 PRINT"planet" 

15298 PRINT 

15295 PRINT"There are spatial anomilies within the"; 
1530@ PRINT"maze which when entered will displace" 
15365 PRINT"you to a new spatial sector" 

15318 PRINT 

15311 PRINT"There are high power energy zones" 
15313 PRINT"throughout the power maze.These can" 
15315 PRINT"be used to destroy the GEOMITRIX" 
15317 PRINT 

15326 PRINT"The only exit is at the far end of" 
15338 PRINT"the maze. This is reached through 3" 
15348 PRINT"doors" . 
15358 PRINT 

15368 PRINT CHRS$ (27 
15370 BS=KEYS$:IF BS=" 
15386 CLS 

15385 INK 5 

15399 BS="" 

15460 PRINT 

15405 PRINTCHRS (4); 


;"L PRESS ANY KEY TO CONTINUE" 
THEN GOTO 15378 


15410 PRINT CHRS (27); "F";CHRS (27); "J CONTROL FUNCTIONS" 
15420 PRINT:PRINT 

15425 PRINT CHRS (4); 

15430 PRINT"F:-Fires high power energy zone which" 

15448 PRINT“are directed by the cursor keys" 

15445 PRINT 
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Features 


ORIC — Tabbing 


[Decimal point aligned] 
or Right-justified if 
no decimal places. 


Screen 1 2 3 
Column No L23 45678907123 453607890 1234567890 etc...uptod 
‘Col’ No 123456789012345678 9012345678 etc...upto38 
123. 44 28.36 446.27 
6.33 2LY.60 4233 ,290 
ITEM ‘A’ ITEM ‘B’ ITEM ‘C’ etc 
TWO BLANK LEFT MARGIN 
COLUMNS ON THE SCREEN 
10 REM ROUTINE FOR TABBING — IT ALSO ALIGNS 
20 REM AMOUNTS EITHER SIDE DECIMAL POINT 
40 INPUTA,B,C :REM FOR TESTING PURPOSES — ENTER VALUES. 
50 PRINT 
100 COL=5 :REM COLUMN NO OF UNIT DIGIT OF FIRST ITEM 
IGNORING TWO BLANK COLS ON LEFT OF 
SCREEN 
110 ITEM=A 
120 GOSUB 500 
200 COL = 15 -REM COLUMN NO OF UNIT DIGIT OF SECOND ITEM 
210 ITEM=B 
220 GOSUB 500 
300 COL =25 :-REM COLUMN NO OF UNIT DIGIT OF THIRD ITEM 
310 ITEM=C 
320 GOSUB 500 
330 PRINT >-REM SPACE-UP AFTER LAST ITEM REQUIRED ON 
THE LINE. 
340 GOTO 40 (or ?) :-REM CONTINUE YOUR PROGRAMME. 
500 COL =COL +2 -REM ADD TWO COLUMN NO TO ALLOW FOR FIRST 
2MARGIN COLS. 
510 PRINT SPC(COL-—POS(x)—(LEN(STR$(INT(ITEM)))—1)); ITEM; 


520 RETURN 


34 Oric Owner 


Features 


[Left-justified] Alternative A. 


1 2 3 
123456789012345678901234567890123456 
2 blank columns ONE TWO THREE FOUR 
on left edge of BILL CHRIS HARRY TOM etc 


screen 


10 REM SUGGESTED ROUTINE FOR TABBING 
20 REMLEFT-JUSTIFIED ITEMS 


30) REM kee cee eR RRR RRR RRR ROK 


40 DATAO, 10, 18, 26 -REM TAB COLUMN NUMBERS 

50 FORI=1TO4 

60 READ C(I) -REM READ-IN TAB COL NUMBERS 

70 C(I) =C() + 12 

80 NEXTI 

90 PRINT 
100 FORI=1to4 
110 PRINT TAB(C(1)); -REM TAB TO APPROPRIATE COLUMN 
120 PRINT CHR$[#11); -REM BACK-SPACE CURSOR ONE LINE 
130 INPUT X$ -REM ENTER AN ITEM 
140 NEXTI 


150 GOTO 90 
Note: BECAUSE THE ABOVE “TESTING” PROG USES INPUT X$ A QUESTION- 
MARK? WILL “PRINT” IN FRONT OF THE ITEM TYPED IN 


[Left-justified] Alternative B. 


THIS IS A STRAIGHT “IN-LINE” VERSION OF THE PROG ON PAGE 2. (ALTERNATIVE A) 


10 CL$ 

20 PRINT: PRINT 

30. PRINT TAB(12); 

40 INPUT X$ -REM FIRST ITEM 


60 PRINT TAB(22); 
70 PRINT CHR$(#11); 
80 INPUT X$ :REM SECOND ITEM 


100 PRINT TAB(30); 
110 PRINT CHR$/[#11); 
120 INPUT X$ >-REM THIRD ITEM 


140 PRINT TAB(38); 
150 PRINT CHR$(#11); 
i60 INPUT X$ -REM FOURTH ITEM 


180 GOTO 30 


Oric Owner 35 


_ Alternative “C” 


Features 
ORIC — Tabbing 


(or GOTO wherever you want to Continue) 
SPC(COL — POS(X)); ITEM; 


[Left-justified] 
This is similar to the “DECIMAL POINT ALIGNMENT” Routine, but without taking into account the 


Agrenon Listing 


COL = COL + 2 


INPUTA,B,C 
PRINT 


PRINT 
GOSUB 500 


GOSUB 500 
PRINT 


100 COL=O 
ITEM =A 
COL = 15 
ITEM = B 

220 GOSUB 500 
COL = 28 
ITEM=C 
GOTO 40 
RETURN 


40 

50 
110 
120 
200 
210 
300 
310 
320 
330 
340 
500 
510 
520 


present position of the CURSOR, and then SPC (spaces) that number of spaces. It will work for string 


length of the field to be printed. It takes the difference between the position you wish to TAB to, and the 
variables, such as A$ too. 


T‘9‘LT- MWud 

efeet‘ P71 Lasano 

T‘9‘LT Mvad 

€fEOT’ PIT LasANd 

NuoOLga 

T‘Te-‘8 MVaG 

e‘STt‘ozt dasano 

T‘Tt’4e- mvad 

€’ec‘prt Lasano 

T‘TT‘ce Mvad 

€/82‘r6 Lasano 

T‘IT‘Le- mvad 

€‘eet‘Tet Lasano 

T‘IT‘Le Mvad 

€/60T‘ LOT LaSaNd 

Nuniga 

T‘es-‘8 mvad 

€/97T‘’ozT Lasano 

T’pt’l9- mvud 

€‘p9‘T9T Lasuno 

T‘PT’l9 MVvad 

€’p9’LL Lasano 

T’pt‘l9- mvad 

€/OZT‘ rT LASAND 

T’pT‘L9 MVUG 

e‘ez7t’re Lasano 

NunLad 

T’68-‘o mvud 

€‘prt’ozt Lasano 

T’6T‘LOT- MVUG 

€’Sp‘ pest Lasuno 

T‘61T‘ LOT MY¥ud 

€‘Sp’ps Lasuno 

T‘6T‘LOT+ Mvad 

e’pet‘T9T Lasano 

T‘6T’ LOT MVUG 

e‘pet‘LL Lasuno 

NYOLga 

T‘971-‘®8 mvud 

€‘€9T‘OzT Lasano 

T‘oz‘PST- mvud 

€‘sz‘goc Lasuno 

T‘oz‘psT mvad 

€’Sz‘pe LaAsSHNo 

T’oz‘pST- Mvud 

e‘est’ pst LasHno 

T‘oz‘yST Mvad 

e’est’ pS Lasuno 

NYOLIY 

1‘9S-'6 MVUG 

€/L47@T‘ezt Lasano 

T’pT’L9- MVvad 

€/p9‘T9T Lasano 

T‘pt’l9 Mvad 

€’p9‘Li Lasano 

T’pt’L9- mvad 

€‘O@T‘PrT Lasand 

NUNLgaY 

@9@8EZ OLOD'dOd NGHL d=a@ GNW O=W AI 
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BE99T 
@299T 
8199T 
0299T 
S6S9T 
66S9T 
O8S9T 
@LS9T 
@9S9T 
@SS9T 
BFS9OT 
BESIT 
O7S9T 
OTS9IT 
Q8S9T 
S6P9T 
B6P9T 
O8b9T 
OLP9T 
B9P9T 
OSP9T 
BPP9T 
BEP9T 
O7H9T 
OTP9T 
OBF9T 
S6E9T 
B6E9T 
O8E9T 
BLE9T 
B9E9T 
BSE9T 
OPEST 
HELIT 
BZE9T 
OTE9T 
BHEOT 
S6Z9T 
BEZ9T 
@8Z29T 
BLZ9T 
8979T 
OS79T 
QPZ9T 
BETIT 
O7Z9T 
BTZ9T 
BO79T 
S6Tgt 
O6T9T 
O8T9T 
OLT9T 
B9TIT 
QST9T 
BPT9T 
DETIT 
B2T9T 
BTT9T 
OBT9T 
8889T 
B9LST 
OSLST 
BVLST 
BELST 
O7LST 
88SST 
BLSST 
B9SST 
8SSST 
BPSST 
BESST 
87SST 
BISST 
BBSST 
B6RST 
O8FST 
@LPST 
B9PST 
OSPST 
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16640 CURSET 107,89,3 

16658 DRAW 17,6,1 

16660 CURSET 131,89,3 

16678 DRAW -17,6,1 

16680 CURSET 119,164,3 

16698 DRAW G,-11,1 

16695 RETURN 

16700 MUSIC 1,8,1,6 

16718 MUSIC 2,6,4,9 

16728 MUSIC 3,1,6,0 

16730 PLAY 7,0,4,200 

16735 HH=l 

1674@ RETURN 

17606 IF RR=l THEN RETURN 
17665 SOUND 1,449, 

1701@ SOUND 2,470,8 

17028 SOUND 3,464,@ 

17030 PLAY 7,0,4,1000 

17632 00=1 

17035 IF BB=l THEN Q=Q+l:A(E,F) =A(E,F)-64:GOSUB 17760 
17848 ON BB GOTO 171060,17200,17360,17406,17506,17600,17698 
17100 FOR N*183 TO 193 

17110 PATTERN 17¢ 

1712@ CURSET 8@- (N-183) ,N,3 
17130 DRAW 86+2* (N-183) ,@,00 
17140 NEXT 

1715@ PATTERN 255 

1716@ RETURN 

17208 FOR N=16@ TO 166 

17210 PATTERN 178 

17220 CURSET 85-(N-160),N,3 
17238 DRAW 70+2* (N-160) ,8,00 
17248 NEXT 

1725@ PATTERN 255 

17260 RETURN 

17306 FOR N=14@ TO 144 

17310 PATTERN 170 

1732@ CURSET 90-(N-146) ,N,3 
17330 DRAW 60+2*(N-148) ,@,00 
17340 NEXT 

17350 PATTERN 255 

17360 RETURN 

17400 FOR N#126 TO 128 

1741@ PATTERN 176 

17426 CURSET1@@- (N-126) ,N,3 
17430 DRAW 40+2* (N-126) ,@,00 
17440 NEXT 


19260 CURSET 126,45,3 

19210 DRAW 9,108,1 

19220 CURSET 54,100,3 

19230 DRAW 138,0,1 

19248 PATTERN 85 

1925@ RETURN 

19308 CURSET 126,64,3 

19310 DRAW §,76,1 

19328 CURSET 77,100,3 

19330 DRAW 84,6,1 

19348 PATTERN 85 

1935@ RETURN 

19408 CURSET 126,78,3 

19416 DRAW G,42,1 

19428 CURSET 94,100,3 

19430 DRAW 54,8,1 

19440 PATTERN 85 

19458 RETURN 

1950@ CURSET 126,89,3 

19518 DRAW G,26,1 

19520 CURSET 167,100,3 

19538 DRAW 24,8,1 

1954@ PATTERN 85 

1955@ RETURN 

19680 CURSET 126,95,3 

19610 DRAW G,8,1 

19620 CURSET 95,100,3 

19630 DRAW 10,8,1 

19648 PATTERN 85 

1965@ RETURN 

20000 SOUND 1,550,0 

20018 SOUND 2,1600,0 

20030 PLAY 3,0,4,1006 

260635 HH=1 

20040 RETURN 

21968 IF PP=@ THEN RETURN 

21001 CC=SGN(A-O) :DD=SGN(B-P) 

21682 IF(A(O,P)AND 128)<>GTHEN A(O,P)=A(0,P)-128 
21005 BE*EB+1:1F-£E>5 THEN EE=0:GOSUB 22060 
21618 IF CC=l AND(A(0,P)AND2)=@ THEN O=0+1 
21626 IF DD=1 AND(A(O,P)AND4)=@ THEN P=P+1 
21030 IF CC#=-1 AND(A(0O,P)AND8)=@ THEN O=0-1 
21048 IF DD=-1 AND(A(O,P)AND1)=@ THEN P=P-1 
21658 A(O,P)=A(O,P) OR 128 

21060 RETURN 

22000 GG=GG+1:IF GG>2 THEN P=P+DD:0=0+CC: POP:GG=@: RETURN 
22001 IF(A(O,P)AND1)=@ THEN GOTO 22014 


17458 
17468 
17568 
17516 
17520 
17538 
17546 
17558 
17568 
17608 
17616 
17626 
17638 
17646 
17656 
17668 
17698 
17766 
17765 
17718 
17720 
177368 
17748 
17758 
199066 
19605 
19168 
19118 
19128 
19125 
191398 
19146 


ee oe 


PATTERN 255 

RETURN 

FOR N=114 TO 116 
PATTERN 176 

CURSET 110-(N-114) ,N,3 
DRAW 20+2*(N-114) ,@,00 
NEXT 

PATTERN 255 

RETURN 

FOR N=106 TO 107 
PATTERN 170 

CURSET 115-(N-186),N,3 
DRAW 10+2* (N-166) ,8,00 
NEXT 

PATTERN 255 

RETURN 

RETURN 

FOR N=55@ TO 449 STEP-1 
PLAY 7,0,0,8 

SOUND 1,N,16 

SOUND 2,N+15,16 

SOUND 3,N+21,10 

NEXT 

RETURN 

IF RR=1 THEN RETURN 
GOSUB 20684:0N BB-1 GOTO 19100,19200,19300,19406,19580,1960% 
CURSET 126,25,3 

DRAW 6,148,1 

CURSET 36,106,3 

DRAW 178,8,1 

PATTERN 85 

RETURN 


23635 
23640 
23056 
23068 
23076 
23086 
23699 
23108 
23118 
23128 
23136 
23148 
23156 
23155 
23168 
23178 
231808 


ee ee | 


FOR M=1 TO 16 
CIRCLE M,1l 
SOUND 1,N,@ 
SOUND 2,N+16,8 
SOUND 3,N+20,8 
PLAY 7,9,3,10 
NEXT 

NEXT 

EXPLODE 

WAIT 166 

SOUND 1,1006,0 
PLAY 1,7,4,408 
WAIT 768 

PLAY 7,0,0,8 
FOR N=119@ TO 4188 STEP 15 
SOUND 1,N,15 
NEXT 


22002 IF(A(O,P)AND8)=@ THEN GOTO 22060 
22604 IF(A(O,P)AND4)=@ THEN GOTO 22040 
22006 IF(A(O,P)AND2)=@ THEN GOTO 22620 
22018 IF(A(O,P)AND1)=@THEN P=P-1:GOTO 22610 
22015 POP: RETURN 

22020 IF(A(O,P)AND2)=OTHEN O=0+1:GOTO 22629 
22638 POP:RETURN 

22040 IF(A(O,P)AND4)=@THEN P=P+1:GOTO 22046 
22058 POP:RETURN 

22060 IF(A(O,P)AND8)=@THEN O=O0-1:GOTO 22666 
22670 POP: RETURN 

23666 PATTERN 170 

23605 INK 1:PAPER 7 

23610 FOR N#1 TO 25 

23038 CURSET FN B(200)+26,FN B(159)+20,3 
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23185 
23198 
24000 
24605 
24807 
25688 
25005 
25618 
25615 
25628 
25622 
25025 
25627 
25038 
25040 
25041 
25042 
25043 
25044 
25046 
25648 
25056 
25868 
25878 
25075 
259888 
25106 
25116 
25115 
25138 
25135 
25140 
25208 
252190 
25212 
25215 


25220 
25236 


25248 
25256 
25266 
25278 
25280 
252990 
25300 
25316 
25320 
25336 
25348 
25356 
25960 
25916 
25920 
26008 
26610 
26020 
270098 
27619 
27026 
28008 
28805 
28010 
28620 
286308 
28040 
28850 
280708 
28080 
289990 
28695 
28100 
28116 
28115 
28126 
28123 
28125 
28128 


28129 RR=6 
28138 RETURN 


IF QQ"1 THEN RETURN 

BS="YOU HAVE BEEN OVERCOME BY THE SPORES" 
GOTO 31260 

CLS 

GOTO 31260 

IF Q#@ THEN RETURN 

BOR N=6 TO 1 STEP-1:ZAP:WAIT N:NEXT 


SHOOT 
CLS 

JJ=A:KK=B:LL=C:MM=@:NN#1:Q=Q-1 

BB=9:E2JJ:F=KK:C=LL:RR#1 

GOSUB 25916 

E2JJ:F=KK 

AS=KEYS 

IF A$<>"" THEN GOTO25160 

HH#1 

PLAY 7,0,0,0 

$S=15- (SQR( (ABS (A-JJ) ) “2+ (ABS (B-KK) “2)) *.423) 

SOUND 1,449,SS 

SOUND 2,464,SS 

SOUND 3,475,SS 

T=T-1l:IF T<@ THEN POP:GOTO 130 

PRINT CHRS (11) ;CHRS (11); 

PRINT" ";CHRS (27); "DTIME="; INT (T/100) +1; "TREASURE=_";R 
PRINT” ";CHRS(27);"ADIRECT THE HIGH POWER ENERGY ZONE" 
GOTO 25636 

D=ASC (AS) 

IF D=1l THEN CLS:GOSUB 25260 

IF D=8 THEN CLS:GOSUB 26600 

IF D=9 THEN CLS:GOSUB 27000 

IF D=32 THEN D#0:RR=@:RETURN 

GOTO 25036 

FOR N#l TO BB 

IFJJ=B(N,1) ANDKK=B(N,2) THENOO=@ : GOSUB17000+ (N+1) *108 
NEXT 

E=JJ:F=KK 

GOSUB 4000 

IF LL=1 AND NW<>@ THEN EXPLODE: POP: RR=@: RETURN 

IF LL=2 AND EW<>@ THEN EXPLODE: POP: RR=@: RETURN 

IF LL=3 AND SW<>@ THEN EXPLODE: POP: RR=@: RETURN 

IF LL=4 AND WW<>@ THEN EXPLODE: POP: RR=@: RETURN 

IF LL=1 THEN KK=KK-1 

IF LL=2 THEN JJ=JJ+1 

IF LL=3 THEN KK=KK+l 

IF LL*4 THEN JJ=JJ-1 

IF JJ=O0 AND KK=P THEN GOSUB28000 

FOR N=l TO BB 

IF B(N,l1)=JJ AND B(N,2)=KK THEN OO=1:GOSUB 1760+ ((N+1)*10@) 
NEXT 

RETURN 

GOSUB 3600 

GOSUB 35@0:GOSUB 4000:B(BB,1)=E:B(BB,2) =F 

GOTO 25980 

LL=LL-1:1IF LL<1 THEN LL=4 
NN=6 

RETURN 

LL*LL+1:1F LL>4 THEN LL=1 
NN=@ 

RETURN 

PRINT CHRS$(7);:FOR O=8 TO 4 
FOR N=6 TO @ STEP-1 

FOR M=l TO 12 

MUSIC 1,N,M,15 

NEXT 

NEXT 

NEXT 

FOR N=l TO 2700 STEP 10 
SOUND 1,N,15 

NEXT 

WAIT 160 

PLAY 8,0,0,0 

EXPLODE 

IF QQ=1 THEN RETURN 
R=R+FN B(50) +950 
A(0,P)=A(0,P)-128 

POP: POP 

PP=PP-l:IF PP>@ THEN O=FNB(15):P=FNB(15) 


29860 CLS 

29005 POKE #26A,10 

29610 PRINT 

29812 PRINT CHRS (27);CHRS (4); "J"; CHRS (27); "C";SPC(7); "POWER MAZE OF 
AGRENON" 

299014 PRINT CHRS (4) 

296816 PRINT 

29028 PRINT"Do you want a short demonstration of" 
2903@ PRINT"the power mazes features?" 

29846 PRINT 

29950 PRINT CHRS(27);"LTYPE 'YES' OR 'NO'";: INPUT BS 
29060 IF LEFTS(BS$,1)<>"Y" THEN RETURN 

29665 QQ=l 

29878 CLS 

29686 HIRES 

29698 PRINT"A spatial anomaly is like this" 

29188 PRINT"It will move you to a new spatial" 

29105 PRINT"sector"; 

29110 WAIT 100 

29128 GOTO 14609 

29125 WAIT 560 

29138 HIRES 

29148 CLS 

29145 PRINT CHRS (4) 

29158 PRINT"A high power energy zone looks like" 

29160 PRINT"this. These are used to kill the" 

29165 PRINT"GEOMITRIX"; 

29178 BB=2:GOSUB17600 

29188 WAIT 600 

29185 HIRES 

29198 CLS 

29258 PRINT"The GEOMITRIX looks like this" 

29268 BB=2:GOSUB 16090 

29278 WAIT 860 

29280 PLAY 9,6,0,0 

29298 CLS 

29308 HIRES 

29438 PRINT"A door connecting sections looks like" 

29448 PRINT"this" 

29458 LW=1:GOSUB 5096 

29460 LW=@:GOSUB 6666 

29478 BB=3:GOSUB 19006 

29480 LW=1:RW=1:GOSUB 7000 

29498 GOSUB 8000 

29500 LW=@:RW=1:FF=1:GOSUB 9669 

29518 WAIT 806 

29515 PLAY 6,0,0,0 

29526 HIRES:PATTERN 255:CLS 

29538 PRINT"You can see up to 6 levels" 

29540 PRINT"anything beyond this will be as above" 

29558 LW=0:RW=@:FF=0:GOSUB 5000 

29568 LW=1:RW=1:GOSUB 6000 

29570 LW=@:GOSUB 7600 

29586 RW=0:LW=6:GOSUB 8000 

29598 LW=1:RW=1:GOSUB 9699 

29600 RW=6:GOSUB 10600 

29618 GOSUB 126990 

29620 WAIT 706 

29638 CLS 

29648 GOSUB 16300:GOSUB 16768 

29650 PRINT"This is what the GEOMITRIX looks like" 

29668 PRINT"in the maze" 

29678 QQ=6 

29688 WAIT 868 

29685 PLAY 6,6,0,08 

29698 TEXT 

29766 PRINT 

29718 PRINT CHRS (4); 

29726 PRINT CHRS (27); "C";CHRS (27); "J 

29738 PRINT:PRINT 

29748 PRINTCHRS (4); 

29758 PRINT"Do you want to see the intructions" 

29768 PRINT“again";:INPUT BS 

29780 IF LEFTS(BS,1)="Y" THEN POP:CLS:GOTO 35 

29785 CLS 

29798 RETURN . 

30608 HIRES 

36003 FOR N=598 TO 896 

30005 PLAY 7,0,8,@ 
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30018 SOUND 1,N,16 

38028 SOUND 2,N+20,10 

30838 SOUND 3,N+46,10 

30040 NEXT 

30658 WAIT 200 

36078 CURSET 120,160,3 

30088 FOR N=99 TO 1 STEP-4 

30998 CIRCLE N,1l 

38188 SOUND 1,N,10 

30110 NEXT 

30128 PLAY 6,0,0,@ 

30125 EXPLODE ; 

30130 FF=0:LW=0:RW=0:GOSUB 4000:GOSUB 5000:GOSUB 6098:GOSUB 7808:GO 
SUB 8006 

30148 GOSUB 9600:GOSUB 16006 

30158 EXPLODE:WAIT 5@0:GOTO 31208 

31000 FOR N=l TO 199 STEP 5 

31001 PLAY 1,0,0,0 

31016 CURSET 1,N,3 

31815 SOUND 1,N,16 

31028 DRAW 238,0,1 

31630 NEXT 

31040 FOR N=l TO 238 STEP 5 

31058 CURSET N,1,3 

31855 SOUND 1,238-N,19 

31068 DRAW @,198,2 

31070 NEXT 

31072 PLAY 7,0,0,0 

31075 CURSET 120,100,3 

310988 FOR N=1 TO 99 STEP 3 

31081 SOUND 1,400+N,10 

31083 SOUND 2,420+N,10 

31085 SOUND 3,440+N,10 

310986 CIRCLE N,2 

31160 NEXT 

31116 WAIT 106 

31128 FOR N=1 TO 199 STEP 5 

31062 CURSET 126,100,3 

31140 DRAW -120,N-100,2 

31150 CURSET 120,100,3 

3116@ DRAW 118,N-100,2 

31178 SOUND 1,N,16 

31186 NEXT 

31190 PLAY 6,0,0,0 

31195 GOSUB 32000 

3120@ TEXT:CLS 

31205 FOR N=47864 TO 47871:POKE N,63:NEXT 

31218 PRINT 

31226 PRINT CHRS (27) ;CHRS (4); "J 
31230 PRINT: PRINT 

31248 PRINT CHRS$ (4); 

31256 PRINT CHRS (27); "D";CHRS (27) ¢"17777777777777777777777777777777 
777777" 

31269 PRINT 

31270 PRINT CHRS (27); "D";CHRS (27) ; "IUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 
UUUUUU" 

31272 PRINT CHRS (4); 

31275 PRINT: PRINT: PRINT CHR$ (27); "J 

31276 PRINT CHRS$ (4); 

31277 WAIT 2060 

31280 vv=((R+UU*1G) +Q*1G) /288 

31298 FORN#=1T05: PRINTCHRS (11); :NEXT 

31300 PRINT CHRS (27); "A";CHRS (27); "1"; 

31318 FOR N=l TO VV 

31320 PRINT "_"; 

31325 WAIT 160 

31338 NEXT 

31348 FOR N*l TO 16:PRINTCHRS (10); :NEXT 
31342 PRINT CHRS$ (13) 

31345 VV=INT(VV*186) 

3135@ IF VV=@ THEN PRINT"LOW LEVEL LIFE FORM" 
31366 IF VV>@ AND VV<20@ THEN PRINT"NOT OF AGRENON DESCENT" 

31370 IF VV>199AND VV<5@@ THEN PRINT"LARGELY BELOW AVERAGE AGRENON 
CITIZEN" 

31380 IF VV>499 AND VV<100@ THEN PRINT"SLIGHTLY BELOW AVERAGE AGREN 
ON CITIZEN" 

31399 IF VV>999 AND VV<30@0 THEN PRINT"AVERAGE AGRENON CITIZEN" 
31395 IF VV>2999 THEN PRINT"YOU HAVE ACHIEVED" 

31400 IFVV>2999ANDVV<4GGGTHENPRINT“AGRENON TECHNICAL POWER ASSISTAN 


POWER MAZE OF AGRENON" 


YOUR RATING" 


-—— 


T": PRINT" STANDARD" 

3141¢ IF VV>3999 AND VV<5@0@ THEN PRINT"AGRENON SPATIAL ENGINEER ST 

ANDARD" 

31426 IF VV>4999 AND VV<60@@ THEN PRINT"AGRENON POWER BATTLE MASTER 
STANDARD" 

31430 IF VV>5999 THEN PRINT"BATTLE LORD OF AGRENON STANDARD" 
31448 WAIT 560 

31456 PRIMT 

3146@ IF Q=1 THEN BS=" " ELSE BS="S" 

31478 PRINT"YOU HAD ";Q;"HIGH POWER ENERGY ZONE";BS;CHRS (13) 
31475 PRINT"LEFT 

31480 PRINT"YOU COLLECTED _";R;"WORTH OF TREASURE" 

31490 IF PP=l THEN BS="LIFE" ELSE BS="LIVES" 

31495 IF PP=@ THEN PRINT"THE GEOMITRIX IS DEAD":GOTO 31516 
31566 PRINT"THE GEOMITRIX HAD ";PP;" ";BS$;" LEFT" 
31518 PRINT"YOU VISITED ";UU;"SPATIAL SECTORS 
31515 PRINT 

31526 INPUT"DO YOU WANT TO REENTER THE MAZE"; BS 
31530 IF LEFTS(BS$,1)="Y" THEN RUN 

31548 CLS 

31545 CLEAR 

31558 END 

32600 HIRES 

32062 PLAY 1,0,8,8 

32065 CURSET 21,8,3 

32610 FOR N=198 TO 2 STEP~2 

32620 DRAW N,@,1 

32038 DRAW @,N,1 

32648 DRAW -N,@,1 

32050 DRAW @,-N,1l 

32068 SOUND 1,N,190 

-32070 NEXT 

32108 CURSET 219,0,3 

32110 FOR N=198 TO 2 STEP-2 

32120 DRAW -N,@,2 

32130 DRAW @,N,2 

32140 DRAW N,@,2 

32150 DRAW G,-N,2 

32168 SOUND 1,198-N,1@ 

32178 NEXT 

32188 PLAY G,0,0,0 

32185 EXPLODE 

32198 RETURN 
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This program is designed to give 
a graphical result in the form of a 
3D bar chart which can have a 
maximum of 12 items. It gives 
the user the choice of how many 
items there are provided that 
there are no more than 12. Also 
in the program for a title where 
if the user wants a scale then 
he/she must put the scale in 
there and remember to make 
sure that the largest actual num- 
ber is less than or equal to 1500. 
The program also asks the user 
to enter labels for the x and y 
axis’s, and labels for each bar 
which can only be 2 characters in 
length (max) and so it could be 
made better by having the labels 
on the bars, which I haven’t 
done because it was meant for 
the initials of the months etc. 
Also this program works out a 
scale for the y axis and at the end 
asks the user if he/she wishes to 
display any more information. If 
the user does then the program 
starts again otherwise it ends. 


By M. J 


. Hall 


PAPERO:INK1:TEXT:CLS 

DIM M$(12),DTA(12),1$(12) 

GOSUB 5000 

HIRES:INK1 

FOR P=41367 TO 48127 STEP40:POKEP,2:NEXTP 
FOR P=41007 TO 41247 STEP40:POKEP,4:NEXTP 
FOR P=48567 TO 49127 STEP40:POKEP,7:NEXTP 
INPUT“Please enter the title (in less than 30 letters)”; 
A$:CLS 

IF LEN(A$)>30 THEN PRINT“That is too long, try 
again”:GOTO 80 

INPUT“What do you wish to label the x axis__with 
(<than 30 letters)”;X$:CLS 

IF LEN(X$)>30 THEN PRINT“That is too long,try 
again”:GOTO 100 

INPUT“What do you wish to lable the y axis with 
(22 letters)”; Y$:CLS 

IF LEN(Y$)>22 THEN PRINT“That is too long, try 
again”:GOTO 120 

FOR C=1 TON 

PRINT“Enter 1-2 initials for item “;C;” on the x axis 
please” ;INPUT I$(C) 

IF LEN(I$(C))>2 THEN GOTO 150 

NEXTC 

CURSET41 0,3: DRAW0,180,1:DRAW196,0,1 
X=48 

FOR C=1 TON 

CURSETX,182,3 

FOR A=1 TO LEN(I$(C)) 

CHAR ASC(MID$(I$(C),A,1)),0.1 

CURMOV6,0,3 

NEXT A 

IF DTA(C)=0 THEN 340 

CURSETX,180,3 

DRAW0,—DTA(C) X SC,1:DRAW8,0,1 
DRAW0,DTA(C) X SC,1 
CURSETX,180—(DTA(C) X SC),3 
DRAW4,—4,1:DRAW8,0,1:DRAW—4,4,1 
CURSETX+ 12,180—(DTA(C) X SC)—4,1 
DRAW®O,DTA(C) X SC,1:DRAW—4,4,1 

X=X+16 

NEXTC 

CURSETS9,1,3 

FOR S=1 TO LEN(A$) 

CHAR ASC(MID$(A$,S,1)).0,1 

CURMOV6,0,3 

NEXT S 

CURSETS@,190,3 

FOR S=1 TO LEN(X$) 

CHAR ASC(MID§$(X$,S,1)),0,1 

CURMOV6,0,3 

NEXTS 

CURSETI,20,3 

FOR S=1 TO LEN(Y$) 

CHAR ASC(MID$(Y$,S,1)),@,1 

CURMOVO,8,3 

NEXT S 

YY% =180:C=0 

REPEAT — 

C=C+1 

L% =L% +VAL(KK$)—WW+0 
C$(C)=STRS(L% ) 

YY%=YY%—VAL(KK$) XSC 
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UNTIL YY%<10 

YY% =180:C=0 

REPEAT 

C=C+1 

CURSETI4, YY% 3 

FOR S=2, TO LEN(C$(C)) 
CHAR ASC(MID$(C$(C),S.1))@.1 
CURMOV6,0,3 

NEXTS 
YY%=YY%—VAL(KK$) X SC 
UNTIL YY%<10 

YY %=180 

REPEAT 
CURSET36, Y Y% ,3: DRAW4,9, | 
YY%=YY%—VAL(KK$) X SC 


UNTIL YY%<10 

YY%=180 

REPEAT 

YY%=YY%—VAL(KK$) X (SC XM) 


CURSET38, Y Y% ,3: DRAW2,0,1 

UNTIL YY%<10 

CLS 

INPUT“DO you wish to display any more information (Y/N)”;Q$ 
IF LEFTS(Q$,1)=“Y" OR LEFTS(Q$,1)="N” THEN 820 ELSE 


CLS:GOTO 800 


IF Q$="Y" THEN RUN 

TEXT 
PLOTS8,10,“XXXXXXXXXXXXXXXXXXXXXX” 
PLOTS8,11,“X x” 
PLOTS8,12,“X x” 
PLOTS, 13,“X x” 
PLOTS8,14,"X x” 
PLOTS, 15,“XXXXXXXXXXXXXXXXXXXXXXK” 
PLAY,0,0,0 

FOR C=1 TO 6 

SOUND 1,500,10 

PLOT11,12,“THIS PROGRAM HAS” 


PLOT15,13,“*NOW ENDED” 

WAIT20 

SOUND 1,300,10:WAIT20 

SOUND 1,400,10 

PLOT11,12," 

PLOT15,13,“ 

WAIT20:SOUND1,600,10 

NEXT C 

PLA Y0,0,0,0: POKE£26A,10:CLS:PRINT CHR$(19):INK@:END 
REM INITIALIZATION 

FOR C=1 TON 

READ M&(C) 

NEXTC 

RETURN 

DATA FIRST, SECOND, THIRD, FOURTH, FIFTH, SIXTH, 
SEVENTH, EIGHTH, NINTH, TENTH 

DATA ELEVENTH, TWELTH 

REM X START OF PROGRAM X 

PRINT“Please enter the number of items (MAX is 12)”; 
INPUT N 

IFN<l ORN>12  ORN<>INT(N)THENPRINT“INCORRECT 
ENTRY,TRY AGAIN”:GOTO 5020 

GOSUB 2000 

FOR C=1 TON 

PRINT“PLEASE ENTER”; M$(C];* ITEM OF DATA”; 

INPUT DTA(C) 

IF MA<DTA(C) THEN MA=DTA(C) 

IF DTA(C)<@THEN PRINT“INCORRECT ENTRY,TRY AGAIN”: 
GOTO 5060 

IF MA>1500 THEN, PRINT*OVERFLOW ERROR, START 
AGAIN”, WAIT400:RUN 

NEXTC 

IF MA<=100 THEN SC=1.5:KK$=“20":WW=20:M=.33:RETURN 
IF MA<=200 THEN SC=.8:KK$="40":WW=40:M=.25:RETURN 
IF MA<=300 THEN SC=.55:KK$=“60": WW =60:M=.33:RETURN 
IF MA<=400 THEN SC=.4:KK$="8 0°: WW=80:M=.25:RETURN 
IF MA>=40k THEN SC=.1:KK$="300":WW=300:M=.33:RETURN 
RETURN 
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ric Quickies 


This is a Hires program that 
draws the outline of the British 


Isles. 


Map of England 
By C. Kingham 


It also draws on the screen a few 
randomly chosen cities through- 


out England, 
Wales. 


Scotland and 


This program allows for others 
to embellish or change it as 


desired. 


20 REM * MAP OF ENGKAND C.KINGHAM * 
30 REM Sete e eee bb A a ae A a aE EE ea a 
40 RESTORE 

50 CLB 

60 HIRES 

70 PAPER 71 1NK O 

80 PRINT CHR®(17) 

90 WAIT 100 

100 CURSET 60,20,3 

110 L@="THE BRITISH ISLES" 

120 FOR L=1 TO LEN(L®) 

130 CHAR ASC(MID®(L#,L,1)),0,1 

140 CURMOV 6,0,01NEXT LaWAIT 100 

150 CURSET 119,40,3 

160 REPEAT 

170 READ A,B 

180 WAIT 10 

190 DRAW A,B,1 

200 UNTIL As-.1 


10 REM So wales ceoeen 


B10 DATA 1474-9) 543s 25-5 y 445 1p by —4y 124 55-45 145-74 By Sy Oy by Sy by 2y 6,2, By 7 


220 DATA 2,11,13,-1,2, 
230 DATA 
240 DATA 
250 DATA 
260 DATA 0,-3,5,-5,10,-1,1,-5,-2, -2, 


DATA -S,—2,-3, 1,-1,-4,5)—-7y—1,-7y-2,-Sy By 
9 


DATA 
DATA -3,-1,1,-4,6,— 

WAIT 50 

CURSET 104, 148,3 

CIRCLE 1.5,1 

CURSET 60, 165,3 
AS="Plymouth" 

FOR A=1 TO LEN(AS) 

CHAR ASC (MID®(AB,A,1)),0, 1 
CURMOV 5,0,0:NEXT A 

WALT SO 

CURDSET 123,155,3 


By 7y2y Ly By Sy Fy ly Ly Fy —22y 16, 1,2, 1, -2 
3,-11,1,-11,3,-4, 
-3,6,-2,1,-3,4,-1,3,-7, 
2,-4,2,-2, 13,-7,1,-10,— 
9,4, by -7) 3-3, 1,-1,2 


3,3,-1,1,-5 
1,0 


ae 


400 CIRCLE 1.5,1 

410 CURSET 85,153,3 

420 BS="Bristol” 

430 FOR B=1 TO LEN(BS) 

440 CHAR ASC (MID$(B8,8,1)),0,1 
450 CURMOV 5,0,0:NEXT B 

460 WAIT SO 

470 CURSET 115,150,3 

480 CIRCLE 1.5,1 

490 CURSET 77,143,3 

500 C8="Cardi fr” 

510 FOR C=1 TO LEN(CS) 

S20 CHAR ASC (MID®(C$,C,1)),0,1 
530 CURMOV 5,0,OrNEXT C 

540 WAIT SO 

550 CURSET 129,135,3 

560 CIRCLE 1.5,1 

570 CURSET 75,132,3 

580 D$="Birmingham" 

590 FOR D=1 TO LEN(D$) 

600 CHAR ASC(MID$(D$,D,1)),0,1 
610 CURMOV 5,0,0:NEXT D 

20 WAIT SO 

630 CURSET 125,119,3 

640 CIRCLE 1.5,1 

650 CURSET 71,116,3 

660 E*="Manchester” 

670 FOR E=1 TO LEN(ES) 

680 CHAR ASC (MIO®(E$,E,1)),0,1 
690 CURMOV 5,0,0:NEXT E 

700 WAIT SO 

710 CURSET 103,62,3 

720 CIRCLE 1.5,1 

730 CURSET 65,79,3 

740 F®="Glasgow" 

750 FOR F=1 TO LEN(F®) 

760 CHAR ASC(MID®(F8,F,1)),0,1 
770 CURMOV 5,0,0:NEXT F 

780 WAIT 50 

790 CURSET 130,95,3 

800 CIRCLE 1.5,1 

810 CURSET 134,91,3 

820 G$="Newcast le" 

830 FOR Ge1 TO LEN(GS) 

840 CHAR ASC(MDS8(G8,G,1)),0,1 
850 CURMOV 5,0,0:NEXT G 

860 WAIT SO 

870 CURSET 144,116,3 

880 CIRCLE 1.5,1 

890 CURSET 148,111,3 

900 H®="Hull" 

910 FOR H=1 TO LEN(H®) 

920 CHAR ASC(MIDS(H$,H,1)),0,1 
930 CURMOV 5S,0,01NEXT H 

940 WAIT 5O 

950 CURSET 159,135,3 

960 CIRCLE 1.5,1 

970 CURSET 163,132,3 

980 I$="Norwich" 

990 FOR I=1 TO LEN(I$) 

1000 CHAR ASC(MID®(18,1,1)),0,1 
1010 CURMOV 5,0,0:NEXT I 

1020 WAIT SO 

1030 CURSET 132, 163,3 

1040 CIRCLE 1.5,1 

1050 CURSET 132,168,3 

1060 J$="Portsmouth" 

1070 FOR J=i TO LEN(Us) 

1080 CHAR ASC(MID®(J8,U,1)),0,1 
1090 CURMOV 5,0,0:NEXT J 

1100 WAIT SO 

1110 CURSET 144,154,3 

1120 CIRCLE 2.0,1 

1130 CURSET 150,151,3 

1140 K®="London" 

1150 FOR K=1.TO LEN(K$) 

1160 CHAR ASC (MIOS(K$,K,1)),0,1 
1170 CURMOV 5,0,O:NEXT K 

1180 GOTO 1180 


No of records = 118 
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Software 


“Word-1” is a word-processor in 
basic for the Oric-1. 


It allows you to enter up to 10 
screens of text (this can be 
changed by changing every num- 
ber 10 in the program to the 
number of screens you want) to 
be entered and edited. The key- 
board works normally except for 
the cursor keys. 


EDITING 

Pressing either the left or right 
cursor keys gives EDIT mode. 
In this, choose which line of text 
you wish to edit then move the 
arrow under the letter you wish 
to change using the cursor keys 
and press “RETURN” then 
enter the letter you wish to put 
in its place. 


Word — 1 


By David Peat 


“DEL” deletes the last character 
you entered in the line and 
escape “ESC” gives you the 
menu. Pressing either of the up 
or down keys will move you onto 
a new screen and “RETURN” 
gives carriage-return. 


MENU 

You are shown the menu: 

1. LIST SCREEN N 

2. LIST SCREEN X UNTIL 
LINE Y 

3. LIST SCREEN X TO Y 

4. PRINT SCREEN N 

5. PRINT SCREEN X UNTIL 
LINE Y 

6. PRINT SCREEN X TO Y 


After choosing you are asked: 
Do you want: 


w 


460 


1010 
1020 
1030 
1040 
1045 
1050 


2 CLS:GOSUB10000 

5 CLS: PRINTCHR$(20);CHR$(17) 
6 PRINTCHRS$(6) 
DIMA$(10, 26): P0=48041 


50 T$="WORD-PROCESSOR”:FORN@=1T014: POKE48013+N,ASC(MID$(T$,N,1)):NEX 
T 

90 FORN=1T010:PLOT10,10,"SCREEN “+STRS(N):GETK$:CLS 

95 PO=48041 

96 TAB=10 

100 FORL=07T026: PO0=48041+(40*L) : FORC=0T038 

110 POKEPO ,45: PK=PEEK(PO-1) 

120 GETK$:SOUND1,100,0:PLAY1,0,1,150 

130 IFK$=*CHR$(13)THENGOTO 2000 

140 IFKS$=CHR$(8)OR K$=CHR$(9) THENGOSUB1000:SOUND1,80,0:PLAY1,0,2,2 


00:G0T0120 

IFK$=CHR$(10 )ORKS=CHR$(11)THENS4O 
IFKS=CHR$ (27 )THENGOSUB6000 
IFK$=CHR$ (127 )THENGOTO2500 
IFASC(K$)432THEN120 
POKEPO,ASC(K$):PO=PO+1:POKEPO,45: PK=PEEK(PO+1 ) 
AS(N,L)*AS(N,L)+K$ 
NEXTC:SOUND1,80,0:PLAY1,0,1,200 

PO=PO+1: PK=PEEK(PO) 

NEXTL 

PING: NEXTN 

GOSUB6000 

GOT0240 

1000 CLS:PRINT"WHICH LINE.0-26"; : INPUTEL: IFEL426OREL4OORINT(EL)4AEL 
THEN1000 

CLs 

PLOTO,5,AS(N,EL) 

$=0:PLOTS,6,"%" 

KS$=KEY$: IFKS=CHR$(8 )ANDSSOTHENPLOTS, 6," 
PLOTS,6,"%" 
IFKS*CHRS€S)ANDSH38THENPLOTS,6," ": 


“:SeS-1 


S=S+1 


1060 LFK$=CHR$(13)THEN1100 

1070 GoTO1040 

1100 PLOTS,6,"%" 

1110 PLOTS,5,” “:PLOTO,10,"Which character.”:GETF$:PLOTS,5,F$ 
1115 IFS*OTHENBS#AS(N,EL):A$(N,EL)="":GOTO1222 


1. a continuous listing or 
2. a page by page listing. 


Option | lists the screens chosen 
non-stop while option 2 pauses 
in between and waits for a key to 
be pressed. 


Back to the menu. . . 

1. causes screen N to be listed. 

You enter N. 

causes screen N to be listed to 

line Y. 

. causes screens X to Y to be 
printed on the screen. Best 
used with option 2 above. 


De 


Options 4, 5 and 6 do exactly the 
same but print on a printer other 
than the screen. 


“4 
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Word — 1 Listing 


1120 BS=AS(N,FL):AS(N,EL)="":FORH*1TOS :A$(N,EL)="AS(N,EL)+MIDS(BS, 
H,1):NEXTH 

1121 IFS¥36THENAS(N,EL)=AS$(N,EL)+F$:GOTO1130 

1122 AS(N,EL)=AS(N,EL)+FS$:FORH=S+2T038:AS(N,EL)=AS(N,EL)+MIDS(BS,H, 
1):NEXT . 
1130 PLOTO,10,"Any more to be changed in this row?":GETFS:IFFS="y"T 
HEN1010 

1140 IFF$="n"THENCLS: FORG=0T026: PLOTO,G,A$(N,G):NEXTG: RETURN 
1150 GOTO1130 

2000 POKEPO, 32 

2001 NEXTL 

2005 PING:NEXT:GOSUB6000:GOTO120 

2500 IFC*OANDLS0THENC=38:L=L-1:PO=PO-1:GOTO2510 

2503 POKEPO, 32 

2505 C=c-1 
2506 IFC=OTHENAS$(N,L)="":GOTO120 
2510 PO=PO-1:POKEPO,45:BS=AS(N,L):AS(N,L)="":A$(N,L)"LEFTS(B$,C  )+ 
2511 AS(N,L)=A$(N,L)+RIGHTS$(BS$,LEN(BS$)-C-1) 

2512 cGoTo120 
6000 P=0 
6005 Ss$="N" 
6010 CLS 
6020 PRINT: PRINT"1. LIST SCREEN N” 
6030 PRINT"2. LIST SCREEN N UNTIL LINE 2” 
6040 PRINT"3. LIST SCREEN X TO Y” 
6060 PRINT"4. PRINT SCREEN WN" 
6070 PRINT"5. PRINT SCREEN N UNTIL LINE 2” 
6080 PRINT"6. PRINT SCREEN X TO Y” 

6100 PLOTO,14,"SELECT PROCESSING CHOICE” 

6110 GETD 

6120 LFDk1ORD460RINT(D) 4XDTHEN6100 

6123 CLS 

6125 IFD&3THENP=1 

6130 CLS 

6135 IFDA3ITHEND=D-3 
6140 PR=6200+(100*D) 
6150 GOTOPR 
6300 IFP=OTHENPLOTO,2,"1. LIST SCREEN N™ 

6305 IFP=1THENPLOTO,2,"4. PRINT SCREEN N” 

6310 PRINT: PRINT: PRINT: PRINT: INPUT"Enter N";X 

6345 IFX¥LORX¥%1LOORXAAINT(X )THENCLS :GOT06300 

6350 Y=26 
6360 GoTO8000 
6400 IFP=OTHENPLOTO,2,"2. LIST SCREEN N UNTIL 2” 

6405 IFP=OTHENPLOTO,2,"5- PRINT SCREEN N UNTIL 2” 

6410 PLOTO,4,"Enter N":GETX 
6417 IFX4LORXS1LOORXSAINT (X )THEN6410 
6425 PLOTO,4,"Enter Z":GETZ 
6440 IFZ41ORZ44INT(Z)ORZ%26THEN6425 

6450 GoTO8000 

6500 IFP=OTHENPLOTO,2,"3. LIST SCREEN X TO Y” 

6505 IFP=1THENPLOTO,2,"7. PRINT SCREEN X TO Y” 

6510 PLOTO,4,"Enter X":GETX 

6515 IFX4kLORXS9THENGOTO6510 

6520 PLOTO,4,"Enter Y":GETZ:Y=26 

6525 IFZ4100RZ4=XTHEN6520 

6540 GoTO8000 

8000 CLS 

8005 IFP=1THEN8100 

8010 PLOTO,2,"Do you want:” 

8020 PLOTO,4,"1. A continuous listing or,” 

030 IFP=OTHENPLOTO,5,"2. A page by page listing.” 

040 PLOTO,9, "ENTER CHOICE”:GETQ: ILFQKALANDQ 442 THEN8040 
8070 GoTO8200 

8200 FORS=XTOZ 

8220 CLS 

8230 IFQ=2ANDP=OTHENPLOTS,10, "SCREEN”+STR$(S) 

8240 IFQ=2ANDP=OTHENWAIT100 
8241 CLS 

8250 IFP=LANDS$="y"THENLPRINT:LPRINT”- 
8270 IFP=1ANDS$="y"THENLPRINT 
8275 FORT=OTOY 

8280 PLOTO,T,AS$(X,T) 

8310 IFP=OTHEN8350 

8312 LPRINTA$(X,T) 

8350 REM 


8370 IFP*lANDS$="y”THENLPRINT 

8380 IFS$=“y"THENREPEAT: UNTILKEY $44 "" 

8381 NEXTT,S 

8390 RETURN 

10000 T$="“WORD-PROCESSOR™:FORN*=1TO14: POKE48013+N,ASC(MIDS$(T$,N,1)): 
10010 PRINT:PRINT"“Use this program to enter up to 10 “ 

10020 PRINT“screens of text.” 

10030 PRINT” Editing:” 

10040 PRINT” Pressing 'DEL' will delete the last character.” 

10050 PRINT” Pressing any one of the left and 

10060 PRINT”right cursor keys puts you into edit mode.” 

10070 PRINT"Enter the line you want to edit(0-26)” 

10080 PRINT"and then move the arrow under the letter you want r 
emoved and” 

10090 PRINT”press 'RETURN'’.” 

10100 PRINT” Menu:” > 

10110 PRINT”Pressing ‘ESC' gives you the menu.” 

10120 PRINT”Press 'RETURN' for carriage return.” 

10130 PRINT: PRINT”Press a key.”:REPEAT: UNTILKEYS4%%"":CLS: RETURN 
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Oric Quickies 


‘Derby Day’ 


By M. J. Hall 


uk ¥uLNIUd sfon 
uk XwLNIBd OSOh 
wku!X!u°ON BEAVIE Adu! (X)MV!w=NOM INNOWY XuLNIUd Oh@t, 
LBERE REE EES BABE G EOE EREEEESBEEOEG NIE Of 87 
(xX)@ ®& (D)O=(X)MV LET ezor 
(X)H=D LI] Oot 
OBBBABESSAERSAAHOEE WEY 200 
¥ GNILNOU ONINNIM ¥ WHY OOH 
JOBS SBEASESERSOANREE WEY 00O1 
@@z OLOD 220T 
OSZLIVM S9@T 
XLXEN O90T 
Q=(X)H!O=(X)@!O=(X) TW! wLANUNNVE SI «!X!u°ON HSAVIdwDNIUd NEHL @=>(X) IN A OSOT 
@=(X)WW NGHL T=(X)AW GNV G=>X{X)IWN J On@T 
(X)d-(X)TW=(X)TA LET ASTH GOO ANSOD NAHL M=(X)H AT OCOT 
N OL T=X WOU QZOT 
S10 @TOT 
SOOL FSTZ GOL NSHL (ZC)$UHO=SV AT $V LD SOOT 
wAMNTLNOO OL UVYE TOWdS SSTHd Taf (LZ)$UHOtu Lu! (22) $UHO LNIYd Z00T 
INIUd! NINA BOOT 
$38 LNIHE 66 
Pe ¥XuLNIHd 096 
u¥ aiM'. SVM GSYOH ONINNIM FHL XwLNIYd 026 
uk ¥uLNIYd 096 
Meestcecettetcesececcccsccc ce: Ona RCM de 
@STSENSOD eT9 
OOLIVM 029 
GIewoe nner nanan nen nme nn mannan annne IwDNIud $6 
XLXGN 06S 
THISL Sef 
@' (Oh # L)+OSCQh TOO’ (OHH L)+THCSty DiOd? 0‘ (Ot HK L)+EzCer Di0d 2S 
((D)0) guts ‘1+2‘62L01d: ((x)@)$ULS ‘1+ OZLOTd? ((X)H)$ULS‘1+2‘LLO1d 08S 
HeT'L+d'g FHT L+d‘TLOld $2S 
(X)H=D LET 02s 
@6S OLOD NGHL @(X)IN a SOS 


“ GSUOH HO°ON IwdNTWd TSS 
pl oreerenernnn nan enencneennnnn—nnenamen TwINIUd OS 

INIHG?INIUd St 

O=L'STO O56 

SESaSTa OrS NEHL (ZC)$UHO=$V ATi gv aD SCS 

wOMNILNOO OL UVa BOWVdS sSMHd Tat (2Z7)$UHOH. Lut (22) $UHO LNINd OCS 
XLXEN 02S 

INIUd OTS 

Q6h OLODININd! NING! @@O9 ENSOD NBHL (X)IW< (X)@ HO O>(X)E aT 00S 
(X)@ LNANT? (X)TW!..> SE OL SVH HOIHM'LSE YNOK AOII wLNIHd 06h 
8=>(X)H GNV T=<(X)H TILNM! ((X)$H)TVA=(X)H? (X)$H LAD? LVGamU Odt 


After that 


game as you can tell from the 
title, where you have to enter 
the number of players between 2 
and 8, and then the odds are 
printed up for the eight horses. 
The odds range from | to 8, one 
being the lowest and eight the 
highest due to the fact that if you 
win arace, the amount of money 
that you bet is multiplied by the 
odds, so eight will give you eight 
times as much and one only one 
times the amount. 

each player will have to enter the 
horse that he/she wishes to bet 


This program is a horse racing 


on and the amount that he/she 
wishes to bet on that horse. This 
must be done in turn and then 
that order kept until the end of 


that game. Once everyone has 


placed their bet, a table of the 
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printed up so everyone can see 
what they have bet and the odds 
and number of that horse. The 
program then proceeds and goes 
through the graphics and finally 
produces a winning horse. Then 


the program prints up any win- 
ners and any bankrupt people. It 


number of horse, bet and odds is 
continues doing this until there 
is either one player left with 
something to bet with or until 
no-one has any money left. At 
this point the program gives the 
users the choice of another game 
or not, where if they don’t then 
the program goes to the ending 


routine and ends, or else it starts 


again. 


ee See ee ee, 
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4IUMQ IUQ OP 


4Q70 PR INTMEEGGGRGEEE EEE CCE ECCS” 

4@80 LET ML(X)=AW(X)+ML(X) 

4@9@ IF ML(X)<@ THEN LET ML(X)=@ 

4095 PRINT"PLAYER No.";X;" HAS ";ML(X);" LEFT TO BET” 

4108 PRINT CHR$(27);"T "+CHR$(27);"L PRESS SPACE BAR TO CONTINUE” 
4105 GET a$:IF A$=CHR$(32) THEN 411 ELSE 4105 

4110 RETURN 

5000 REM JEGCREEGECREECOGE 

5020 PRINT"Do you want another game (Y/N)" 


5025 GET A$ 

5030 IF AS="Y" THEN GOTO1G 

5835 IF Ag="N" THEN 504@ ELSE 5025 
5@4@ LORES® 


5058 FOR Q@1 TO 10 

5060 PLOT8,10,"THIS PROGRAM HAS NOW ENDED" 
5078 WAITSO 

508@ MUSIC1,3,3,15 

5090 PLAY1,0,2, 52 

5110 PROT8,10," * 
512 WAIT2@ 

5125 PLAYO,0,0,0 

5130 NEXTQ 

5135 CLS: INK1:PRINT CHR$¢(19) 

514@ END 

515@ REM ¥£ GRAPHICS ROUTINE ¥€ 

5160 CLS:PAPER@: INK7 

5170 POKE49040, 17 : POKE4908@ , 17 : POKB49020, 17 
5180 POKE48962,49:POKE490G2, 124: POKE49042, 124 
5190 PLOT10,2,"THEY'RE UNDER STARTERS ORDERS" 
5195 WAIT10@ 

5208 PLOT1@,2," 

5219 SHOOT: WAIT75 

5220 PLOT15,2," $ 

5280 SOUND3,1,10 

5298 PLAY4,1,3, 200 

530@ FOR S=1 TO 5 

5310 WAITS@ 

532@ D=INT(7 4CRND(1))+1 

533@ IF D=1 THEN 5326 

5348 FOR X=49033 TO 49008 STEP-5 

5360 POKEX-1,D:POKEX—44, D: POKEX+38, D 

537@ POKEX,127:POKEX}1, 127 :POKEX+2,127 
5380 POKEX+39,33:POKEX +43, 123 

539@ POKEX+J, 113:POKEX—-41, 122:POKEX-42, 126 
5395 POKEX=39, 106:POKEX-40, 107 

540® WAIT2O 

541@ POKEX, 32:POKEX+1, 32:POKEX+2, 32 

5420 POKEX+39, 32:POKEXH+3, 32 

5430 POKEX+3, 32:POKEX-H1, 32:POKEX=42 , 32 
5435 POKBR-39, 32:POKEX-4® , 32 

544® POKEX, 127:POKEX+1,127:POKEX+2,127 
5450 POKEX+4@, 123: POKEX+42, 33 

5460 POKEX+3,113:POKEX-41,122:POKEX-42, 120 
5465 POKEX-39, 106:POKEX-4@, 187 

5470 WAIT20 

5480 POKEX ,32:POKEX+1, 32:POKEX+2, 32 

549@ POKEX+1@, 32: POKEX+42, 32 

550@ POKEX+3, 32:POKEX-41, 32:POKEX-42, 32 
5505 POKEX-39, 32:POKEX-4@, 32 

5519 NEXTX 

5520 G=INT(3 ¥ RND(1))+1:IF G=1 THEN H$="LENGTH"ELSE H$="LENGTHS" 
553@ Z=INT(8 # RND(1))+1:IF S=5 THEN 5620 

5548 PLOT3,2," . 

5550 PLOT2,2,2 

5560 IF S=4 THEN W=INT(8 % RND(1))+1:GOTO 5590 
557@ PLOT3,2, "NUMBER ":PLOTQ,2,STR$(Z):PLOT12,2,"IS LEADING BY" 

5575 PIOT25,2,STR$(G) 

558@ PLOT29,2,H$:GOTO 5620 

559@ PLOT10,2,"THEY'RE COMING UP TO THE":PLOT15,3,"LAST STRAIGHT" 

5595 PING: WAITS5@:P ING:WAIT5@:PING:WAIT2@:SOUND3,1,10:PLAY4,1,3, 200 
560@ PLOTS,4, "NUMBER" :PLOT15,4,STR$(W) :PLOT18,4,"IS CATCHING UP":WAIT75 
561@ PLOT10,2," *:PLOT15, 3," % 

5615 PLOTS,4," $ 

562@ NEXTS 

5630 WAIT20@ 

5648 INK@:PAPER1 

565@ CLS 

566@ RETURN 

6@0@ REM ¥X INCORRECT ENTRY ROUTINE %€+ 

6210 CLS 


";PLOT15,2,"AND THEY'RE OFF" 


" 


PLOTS, 10, GG GERROEEEEEBUOEEEEEE” 
PLOTS, 11,"% x 
PLOT8,12,"% INCORRECT ENTRY i" 
PLOTS, 13, "€ x" 
PLOTS, 14, "GEGEEGEEHEEEOEEEEEEE EGE” 

FOR C=1 TO 3 

MUSIC1,2,3,15 

PLAY1,2,3,15 

WAIT3® 

PLAY@,0,0,0 

WAIT2@ 

NEXTC 

CLs 

RETURN 

REM ¥€ INITIALIZATION X*€ 

PAPER1: INKO 

POKEE26A, 10 — £ sign is meant to be a hash @) 
cLs 

I8(1)="FIREF LY": I$(2)="RED RUM":I8(3)="SILVER DREAM": I$(4)="SPARTICUS" 
I$(5)="BLACK PRINT": I8(6)="BLACK BESS": I$(7)="KING CHARLES V" 
1$(8)="BEECHERS BROOK" 

RETURN 

REM OGG G GOCE TE 

REM *% CHARACTER DEFINITION ££ 

REM 3830330 0G HERG EGET 

A=46080 

FOR N=@ TO 7:READX:POKE(A+S56+N) ,X:NEXTN 
DATA 2,0,0,0,0,63,0,0 

FOR N=@ TO 7:READX:POKE(A+264+N) ,X:NEXTN 
DATA 71747156 56, 56 56 56 

FOR N=@ TO 7:READX:POKE(A+960+N) , X:NEXTN 
DATA 15,15,15,15,15,0,0,0 

FOR N=@ TO 7:READX:POKE(A+976+N) , X:NEXTN 
DATA 48,48,48,48,48,15,15,15 

FOR N=@ TO 7:READX:POKE(A+9944N) , X:NEXTN 
DATA 564 56, 56577579757 

FOR N=@ TO 7:READX:POKE(A+QO4+N) , X:NEXTN 
DATA 63,63,0,2,0,0,0,0 

FOR N=@ TO 7:READX:POKE(A+848+N) , X:NEXTN 
DATA 30,62, 3,12, 30,62,63, 31 

RETURN 

REM *& INSTRUCTIONS *& 

CLS:PRINT:PRINT 

PRINT CHR$(4) 

PRINT CHR$(27);"T —-""+CHR$(27);"N DERBY DAY" 
PRINT CHR8(4) 

PRINT: PRINT 

PRINT THIS GAME WAS DESIGNED" 

PRINT" BY MARTYN.J.HALL” 

PRINT: PRINT 

PRINT" The object of the game" 

PRINT" is to use your skill and" 
PRINT luck to bet on horses,and" 
PRINT" be the winner of the game" 
PRINT" by being the last person" 
PRINT" in.If there isnt a last" 
PRINT" person in the game,then" 
PRINT" there wont be a winner so” 
PRINT" you have to make sure that” 
PRINT" you bet carefully if you" 
PRINT" want to win.During each game" 
PRINT" the odds are only printed” 
PRINT” up once,so the users will" 
PRINT" have to make sure that" 

PRINT" everyone is ready to" 

PRINT" continue. 

PRINT: PRINT 


PRINT CHR&(27);"T  "+CHRS(27);"L PRESS SPACE BAR TO CONTINUE" 
GET A$: IF A$=CHR$(32) THEN 8460 ELSE 3450 

CLs 

RETURN 

REM ££ ROUTINE TO PRINT UP ¥® 

REM 4£ WINNER OF THE GAME &x 

REM 

PRINT: PRINT 

FOR X=1 TO N 

IF ML(X)<=@ THEN 10062 

PRINT"PLAYER ";X;" IS THE WINNER OF THE GAME” 


PRINT:PRINT"WITH "; 
NEXTX 

PRINT"PRESS SPACE BAR TO CONTINUE”: PRINT . 
GET Ag: IF A$=CHRf¢32) THEN 5022 ELSE 14039 


X);" LEFT" :PRINT 


suljsi] Aep-Aqiaq 
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Oric Demonstration 


Program 
By Karl Williams 


16 PAPER4:INK7 118 G=INT(RND(1)*12)+1 
20 HIRES: INKG:FORX=1T0O4@ 128 H=INT(RND(1)*5)+1@ 
3@ FORA=1T06 138 MUSIC1,F,G,H 

Lines 150-190 can be deleted to 40 B=INT(RND(1)*235) 140 NEXTA 

omit the Random Circles. 50 C=INT(RND (1) *168) 15@ I=INT(RND(1)*160)+4@ 
68 CURSETB,C,3 16@ J=INT(RND(1)*120)+4@ 
78 D=RND(1)*6+17 17@ CURSETI,J,3 
808 E=INT(RND(1)*3@)+1 180 K=INT(RND(1)*30)+9 
908 FILLE,1,D 198 CIRCLEK,1 
100 F=INT(RND(1)*8) 200 NEXTX 


DINKY KONG ORICADE 


For 48K £6.95 inc. For 48K £8.50 inc. For 48K £6.95 inc. 


SUPER M/C ARCADE GAME @ Assembler/Disassembler/Editor A challenging adventure set in the mines 

FROM SELECTED BRANCHES @ Handles full 6502 mnemonics. Features of Moria. 

@ Skill Levels, Full Colour, Platforms, Save & Reload M/C Assembles & @ Can you survive encounters with the 
Ladders, Fire-balls, Rolling Barrels, Disassembles at any address. monsters of Middle-Earth? Will the 
Umbrellas, Hearts, Hall of Fame, You can’t program seriously without wizard help. you? Are you fated to die 
Sound Effects. Oricade. beside the sealed doors? Or have you 

; . * the power to open them? Unless you 
- h F 
Your won’t see a better game for the Oric. Author — Adrian Sheppard fie Carina Ring You'will bever leave 
*Author — Adrian Sheppard. the mines alive! 


*Sold at branches of LASKYS and all 


: good software shops - ask for SEVERN 
JOGGER GRAIL SOFTWARE. 


x . 
REAL M/C ARCADE ACTION Exciting Graphic Adventure 


| 


@ 4 Screens, Skill Levels, Full Colour, Where in the Castle Perilous is the | 
Road, Cars, Lorries, River, Crocs, Holy Grall? Gather armour and ao a MO YOU ssisciesscacsevessccscccscessssics program. 
Logs, Hall of Fame, Sound Effects. weapons to fight monsters. Sell anny eet 

Perspire your way up the screen. treasure to a trader in exchange for lenclose cheque/P.O. fOr £........::scssssssssssssseesssesesesess 


r 
| 
| 
| 
| 
‘ _ Strength potions and wound ointment. | 
Author Where will the warp take you to? | 
Adrian Sheppard. This is a test of skill, luck, logic & 
intelligence. | 

| 

| 

| 

| 

l 


SEVERN SOFTWARE 


SEVERN SOFTWARE 
oOo 5, School Crescent, Lydney, Glos. GL15 5TA. 
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Regulars 


Wort 


Having decided to buy the Oric- 
1 48K RAM I can only hope it 
will gain popularity so that a 
multitude of add-ons, programs 
etc. will be available. I therefore 
forward these ponderings in the 
hope they may be useful to you, 
being well aware that you pro- 
bably are flooded with “bright 
ideas”. 


First of all, why did I buy your 
machine? I heard of a colleague 
who bought a ZX-81 with manu- 
als and other books in order to 
learn basic programming. He 
worked his way through this and 
then gave the device to his son. 
As he remarked, the cost for 
doing so was small compared to 
what you usually pay for medical 
courses (A weeks course in Lon- 
don amounts to 350 pounds + 
travel expenses). Thus home- 
computers provide a fairly cheap 
and comfortable way to learn 
programming, even when you 
have access to bigger computers 
at the job. 


When deciding for the Oric I was 
helped by a friend, who had 
worked with computers since 
the sixties and who is now a 
mathematician and a doctor. 
The arguments for one who have 
access to quite a deal of hard- 


ware, and even heavy compu- 
ters, runs thus in favour of Oric: 
1. The keyboard looks like 
that of ordinary computers/ 
terminals. The Spectrum looks 
more like Italian salad than like 
a computer. I would have will- 
ingly paid another 50 pounds for 
a real hardtop keyboard, but 
found the Commodore 64 too 
expensive, when considering my 
ready access to computer- 
machinery at the hospital. Give 
it a thought. Others sell home- 
computers with plug-in key- 
board! 

2. The Oric has ports making it 
suitable for someone like me, 
who has printers, monitors etc. 
available at the hospital. 

3. According to my adviser the 
6502 processor is well suited for 
Pascal, a language he recom- 
mends. 

4. I am interested in music and 
thus may have fun with the 
synthesizer. But this argument 
was of lesser importance. 
Except maybe Chess games are 
not of interest... unless they 
have relation to  medicine/ 
research as a sort of self teaching 
thing. I am quite allergic to ping 
and pang. 


If I should draw your attention 
to a potential market consisting 


A doctor and scientist’s thoughts 
on the Oric-1 


of doctors, scientists, students 
and other serious users, you 
should then be aware that they 
will demand different things 
than the present buyers. If you 
want to reach them, you will 
have to take into consideration 
that these people are used to 
studying. After an initial course 
they will need more heavy books 
(with smaller letters) going into 
the depths of problems and 
handbooks, where you can read 
selected chapters, when solving 
an actual problem. 


Doctors need statistical tests 
first of all. For instance a multi- 
variate analysis, which I have 
seen advertised for Sinclair! 
Give them a statistical pack, this 
should be no problem. Many 
doctors though being. skilled 
surgeons have difficulty with 
statistics when analysing results. 
But even a program leading 
them to choose the right test is a 
possibility, using questions like: 
big or small material? Compari- 
son of two means? Comparison 
of a mean with known standard? 
etc. 


Many medical _ researchers 
already have programmable cal- 
culators like the Texas TI-59 
performing statistics. What you 
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can offer is more text on the 
screen when guiding them to the 
right calculations and a graph- 
ical representation of the results 
too. 


At present home-computers are 
not used by doctors/scientists to 
any significant degree. I think a 
good deal of the reason is that 
they do not know about the 
capabilities of home-computers. 
They have, however, bought the 
Texas TI-59 and HP analogues 


in the results of their research, 
so that a little calculating at 
home is unavoidable. They will 
buy the Oric-1 too, if they get to 
know of its capabilities. Doctors 
do not want to be ignorant, so 
you can even scare them with 
questions like: Hospitals are 
invaded by computers. Do you 
know enough about how they 
work? 


Should you choose to write the 
necessary books to make the 


practitioner, be aware of the 
tax-systems in many countries. 
In Scandinavia (e.g. my case 
85% tax of the last penny) it may 
be all important to sell the Oric 
along with tapes and books as a 
package with a title like “A 
course in computing for the 
medical and biological 
sciences”. This could make the 
whole thing tax deductible, 
whereas a home-computer 
would be hard to justify. 

Dr. Tom Buur(actually Danish), 


... this with their own money, Oric — suitable 


because they are too interested 


Dear Sir, 


In issue 1 of ‘Oric Owner’ 
magazine you had a program 
listing of “ORIC-TREK’. In the 
list of instructions you men- 
tioned that you would need a 
48K Oric to run the program. 


Whether or not you already 
realise, it is possible to run the 
program on a 16K ORIC, using 
the ‘GRAB’ command and with 
some changes in the listing you 
can obtain better graphics with 
about 4000 bytes left over. 


I find it very annoying that most 
of the adverts for the Oric Soft- 
ware do not specify which model 
of ORIC it can be run on. I am 
sure that other ORIC users have ° 
the same problem. 


Perhaps in future issues if a 48K 
program listing is printed it is 
possible for tips to be added for 
the conversion to the 16K model 


in appropriate cases. D. T. Paton 


researchers or even the general 


for medical Snickaregatan 4 C, 


582 26 Linkoping, Sweden 


Dear Ed., 
Does anyone out there know 
how to scroll the Orics screen 
left or right? I know how to use 
strings for this purpose but it is a 
very slow and tedious method. 
Can anyone help? 

I would also like to know if 
anyone knows anything about 
the commands INVERSE and 
NORMAL lurking inside the 
ROM. 


Also could you explain the 
phrase DOWNLOADING as it 
is a bit of a mystery to me. 
Thank you for a great magazine. 
Keep it up. 


Finally, a query about the Oric 
Trek program in the first issue. 


Whenever I try to move up or 
north or into a quadrant above 
me the program refuses to go 
there. 


David Peat 
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Oric Quickies 


Clock Simulation 


By C. Kingh 
® ng am REM 7693 FEE EE FTE 


REM * CLOCK - CHRIS KINGHAM * 
PREM 930963 3833 REE ETE EI 
PAPER 6 
HIRES 
PAPER 6: INK O 
H=0:M=0:F=0 
PRINT CHR$(17) 
REM ###HHHHHHH GET UP SCREEN #31 RH 
CURSET 123,103,3 

CIRCLE 58,1 

CIRCLE 75,1 

CURSET 28,18,1:DRAW 183,0,1 

DRAW 0,165,1:DRAW -183,0,1 

DRAW 0,-165,1:GOSUB 1100 

CURSET 176,68,3 

As$="23456789" 

FOR T=1 TO LEN(A$) 

CHAR ASC (MID$(A$,T,1)),0,1 

CURSET 66*COS(F )+120, 66*SIN(F )+100,3 
F=F +. 52359: NEXT 

C$="01e " 

Bs="1111" 

FOR B=1 TO LEN(BS) 

CHAR ASC (MID$(BS,B,1)),0,1 

CURMOV 5,0,3 

CHAR ASC (MID$(C#,B,1)),0,1 

CURSET 646*COS(F )+117, 66#SIN(F)+101,3 
FeF+.52359: NEXT 

CLS 

PRINT SPC(7)"SET TIME (Hr,Min) "4 
INPUT H,M 

IF M)60 OR M(O OR H)12 OR H(O THEN 340 ELSE 360 
CLSiPRINT SPC(13)"INVALID TIME" 

GOTO 300 

CLS:F=-1.58:GOSUB 1000 

CURSET 123,103,1 

DRAW S52*COS(F),S2*SIN(F),1 

CURSET 123,103,1 

DRAW 35*COS(X), 35*SIN(X),1 

CURSET 123,103,1 


This is a Hires program demon- REN seteeeesaateeeensasertenenneeneenens 
. . REM * PRESS ANY KEY TO START CLOCK * 
Strating an anologue clock dis- PREM 9695 9 4 aE EF IEE IE SEE I IIE IE IE IEE TE TE TEE TE TEE TE ETE TE TE HEE 
GET — 
© F=-1.5 
play. REPEAT" 


CURSET 123,103,1 

DRAW S2*COS(F),S2*SIN(F),1 
FOR T=1i TO 145:NEXT 

CURSET 123,103,1 

DRAW S52*COS(F),S52*SIN(F),O 


It allows the user to set a time Cwai Len aaeeis Enea i 
and ORIC will then display the SHLn HERE Cr RAMETNEYS), | 
e . . FeF+. 104719755 
correct time in Hr, Min and UNTIL 91. 494° 1 

IF H)12 THEN H=1 
Secs. CURSET 123,103,1 


DRAW 35*COS(X), 35*SIN(X),0 
CURSET 123, 103,1 

DRAW 56*COS(Y),56*SIN(Y),0 
M=M+1 

IF M=60 THEN M=0: 
X=.10419755 *(H*S 


(Only varies about a second in aa pple 
two hours.)  eeunonayics * (HES) 2X=X-1.55 


10419755 *M:Y=Y-1.55 
X=X+(¥/12) +.09 

RETURN 

CURSET 24,14,3:DRAW 191,0,1 
DRAW 0,173,1:DRAW -191,0,1 


To improve the accuracy of the CURSET 24, 14,3: 0RAW 4,4, 1 
= CURSET 215,14,3:DRAW -4,4,1 
clock. Minor adjustments can be CURSET 215, 186, 3:0RAW -4,-4)1 
: CURSET 24,186,3:DRAW 4,~4,1 
made to the step interval at line serra 


580 according to whether the rae pret 
clock is gaining or losing time. 
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e 10 REM SINE-PATTERNS BY CARSTEN SKJERK 

Sine-patterns 20 INK7: FAPERO 
30 X=RND (-DEEK (630) ) 
40 DEFFNA(X) =INT CRND (1) *X) 

g k 50 B=FNA(45) +1 

40 HIRES 

By Carsten kjer 70 P=FNAC8) : T=FNA CA) 
80 IF L=FTHEN7O 
90 INKI: PAPERF 


Sine-patterns should run on the 100 F0'.618,10 

16K Oric without any changes. 110 Y=FNAC1O) +4114 

Line 30 sets the seed of the 120 FORX=-PITOPISTEF .2 

random number generator by 130 CURSETX#®Y+120,S51N(X) ¥204+99, 3 
looking at the interval timer, so ae ae 1 

it should be fairly random. 1460 WATTSO0 


170 GoTOSO 


Interference Figures 
By J Reberg By J Reberg 


16 HIRES 
20 A=1.2 
30 K=0.1 
40 X1=12@ 
58 X2=100 
68 INKG 
70 PAPERT 
106 FORI=KTO1@GOSTEPK 
110 X=SIN(I)*106+126 
120 Y=SIN(I*A) *90+10@0 
138 CURSETX,Y,1 
146 IFABS (X-X1)+ABS (Y-Y1) <1 THEN169 
15@ DRAWX1-X+@ 5,Y1-Y+@ 5,1 
160 X1=x 
7 l= 
18 HIRES 180 ORE 
20 FORI=@TO239STEP2 
386 CURSET@,199,3 
40 DRAWI,-199,2 


58 NEXTI 


Oric Owner 51 


Oric Quickies 


Oric’s Sound Capabilities 


10 READ A,B,C: IF C=—1 THEN END 
20 MUSIC 1,A,B,0: PLAY 1,0,1,1110*C 


‘ 30 WAIT 14*C: GOTO 10 
By S. Haigh 50 DATA 3,10,2,4,1,4,4,3,2,4,5,3,4,7,1,4,5,2,4,3,4,3,12,2,3,8,4,3,10,1 


60 DATA 3,12,1,4,1,4,3,10,2,3,10,3,3,9,1,3,10,2,3,12,4,3,9,2,3,5,4,3,10,2 
70 DATA 4,1,4,4,3,2,4,5,3,4,7,1,4,5,2,4,3,4,3,12,2,3,8,4,3,10,1,3,12,1 
80 DATA 4,1,3,3,12,1,3,10,2,3,9,2,3,7 ,2,559,2,3,10,4,3,10,2,3,10,6,0,0,—1 


The program above is an ex- 
ample of the Oric’s sound capa- 
bilities which will play an easily 
recognised tune. All music can 
be converted as below with only 
a minimum knowledge of read- 
ing sheet music. 


10 PAPER6:INKO 

20 POKE#26A,10 

30 CLS 

35 PLOT7,10,"PLEASE WAIT A MINUTE,WHILE" 

40 PLOT12,11,"YOU ARE BEING ARMED" 

45 GOSUB 420:CLS:PRINT:PRINT 

46 PRINT:PRINT" DO YOU REQUIRE INSTRUCTIONS (Y/N)" 


NNTER THE LEVEL PLEASE 1(EASY) 2(HARD)"™ 
GE .EVEL$:UNTIL LEVEL$="1" OR LEVEL$="2" 
“THEN LEVEL=1 


65 CLS:FOR C=l TO 4 

70 ZAP:PLOT10,10,"ACTION STATIONS" :WALTSO 

75 PLOT1O,10," “:WAIT30:NEXTC:WAIT1OO 
80 PLOT7,15,"THE ENEMY ARE COMING":WAIT150 

85 GOSUB 1200 

90 GOSUB 1320 

100 X=15 

110 PLOTX,Y,Q$ 

120 REPEAT 

125 IF 0<1000 THEN POKE48060,32 


140 O$=STR$(O):PLOT15,0,0$ 

150 SC$=STR$(S):PLOT28,0,SC$ 

160 IF DI=l AND A<=5 THEN PLOT A,B,R$:GOSUB 9000 
165 IF DI=2 AND A>=30 THEN PLOT A,B,R$:GOSUB 9000 


170 IF R=3 OR R=6 THEN Q=2 ELSE Q=1 

180 PLOTA,B,RS 

190 IF DI=l THEN A=A-Q 

195 IF DI=2 THEN A=A+Q 

200 PLOTA,B,D$(R):WAIT2 

210 K$=KEY$:IF K$="" THEN K$=L$ 

220 IF K$=CHR$(8) THEN PLOTX,Y,T$:X=X-2:L$=K$ 
230 IF K$=CHR$(9) THEN PLOTX,Y,T$:X=X+2:L$=KS 
240 IF K$=CHR$(10) AND LEVEL=l1 THEN CO=X:L$=K$ 
250 IF X<=l THEN X=] 

260 IF X>=38 THEN X=38 

270 PLOTX,Y,Q$ 

280 IF K$=CHR$(11) THEN GOSUB 710 

290 UNTIL O<=0 

300 WAIT100 

310 POKE48057,32:POKE48056, 32 

320 CLS 

330 PRINT:PRINT 

340 PRINT" YOUR SCORE WAS ";S 


350 IF S>W THEN PRINT" THE HIGHEST SO FAR"ELSE PRINT" THE BEST 


WAS ";W;" BY ";MS 
360 IF S>W THEN W=S:INPUT"ENTER YOUR NAME PLEASE"; M$ 
370 PRINT:PRINT 


375 IF LEVEL=l1 AND S>20000 THEN PRINT"YOU OUGHT TO BE ON LEVEL 2" 


376 PRINT:PRINT 
380 PRINT"DO YOU WANT ANOTHER GAME (Y/N)" 


1 


REPEAT:GET A$:UNTIL AS="Y" OR AS="N":IF A$="Y" THEN GOSUB 1470 


130 O=O-1:IF 0<100 THEN POKE48059,32:IF O<10 THEN POKE48058, 32 


Torpedo 
Attack 


By 
Martyn J. Hall 


This program uses LORES 
graphics and has user defined 
characters. The program gives 
the user the choice of seeing the 
instructions, and then gives the 
user the choice of two levels. 
The difference between the two 
is that on level one the speed of 
the torpedo is faster than the 
speed of the torpedo on level 
two. Once the actual game has 
started the user has to destroy as 
many ships in the time given 
which can be increased on every 
300 points scored. There are 
three different types of ships 
each of different points. When 
the time runs out your score is 
printed up and if you have the 
highest score so far then you will 
be asked to enter your name. 
Then you will be asked if you 
want another game or not, if you 
do then the game starts again 
otherwise it will end. 


52. Oric Owner 


390 
400 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
709 
710 
720 
725 
730 
740 
750 
751 
755 
756 
757 
760 
770 


1293 
1300 
1310 
1320 
1330 
1340 
1350 
1355 
1360 
1370 
1390 
1400 
1410 
1420 
1425 
1430 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


Torpedo Attack Listing 


GET A$:IF A$="Y" THEN 46 
IF AS="N" THEN 980 ELSE 380 

REM ** CHARACTER DEFINITION ** 

T=46080 

FOR N=0 TO 7:READX:POKE(T+264+N) ,X:NEXTN 
DATA #0C,#0C,#1E,#1E,#3F,#3F,#3F,#3F 
FOR N=0 TO 7:READX:POKE(T+984+N) ,X:NEXTN 
DATA #0,#0,#1,#3F,#1F,#F,#07,#03 

FOR N=0 TO 7:READX:POKE(T+1000+N) ,X:NEXTN 
DATA #10,#20,#0,#0,#3F,#3F,#3F,4#3F 

FOR N=0 TO 7:READX:POKE(T+728+N) ,X:NEXTN 
DATA #0,#0,#0,#0,40,#3F,#3F,#3F 

FOR N=0 TO 7:READX:POKE(T+512+N) ,X:NEXTN 
DATA #0,#0,#0,4#0,#1F,#0F,#07,#03 

FOR N=0 TO 7:READX:POKE(T+976+N) ,X:NEXTN 
DATA #0,#0,#0,#0,#3F,#3F,#3F,#3F 

FOR N=0 TO 7:READX:POKE(T+944+N) ,X:NEXTN 
DATA #30,#30,#30,#30,#3F,#3F,#3F,#3F 

FOR N=0 TO 7:READX:POKE(T+920+N) ,X:NEXTN 
DATA #0,#0,#0,#0,#3F,#3F,#3F,#3E 

FOR N=0 TO 7:READX:POKE(T+848+N) ,X:NEXTN 
DATA #0,#0,#0,#3F,#1F,#0F,#07,#03 

FOR N=0 TO 7:READX:POKE(T+792+N) ,X:NEXTN 
DATA #0,#0,#0,43F,#3F,#3F,#3F,#3F 

FOR N=0 TO 7:READX:POKE(T+968+N) ,X:NEXTN 
DATA #20,#38,#38,#3F,#3F,#3F,4#3F,#3F 

FOR N=0 TO 7:READX:POKE(T+960+N) ,X:NEXTN 
DATA #0,#0,4#0,#3F,#3E,#3C,#38,#30 

FOR N=0 %O 7:READX:POKE(T+768+N) ,X:NEXTN 
DATA #3F,#3F,#3F,#0,40,#0,#0,#0 

FOR N=0 TO 7:READX:POKE(T+776+N) ,X:NEXTN 
DATA 0,0,0,0,63,63,63,31 

FOR N=0 TO 7:READX:POKE(T+800+N) ,X:NEXTN 
DATA 3,3,3,3,63,63,63,63 

FOR N=0 TO 7:READX:POKE(T+808+N) ,X:NEXTN 
DATA 0,0,0,0,62,60,56,48 

FOR N=0 TO 7:READX:POKE(T+952+N) ,X:NEXTN 
DATA 1,7,7,63,63,63,63,63 

FOR N=0 TO 7:READX:POKE(T+912+N) ,X:NEXTN 
DATA’ 0,0,32,63,62,60,56,48 

FOR N=0 TO 7:READX:POKE(T+936+N) ,X:NEXTN 
DATA 2,1,0,0,63,63,63,63 

RETURN 

REM ** SHOOTING ROUTINE ** 

O$=STR$(0) 

IF LEVEL=1 THEN SP=2.75 ELSE SP=1.5 

FOR C=22 TO 5 STEP-SP 

PLOTA,B,RS$ 

IF DI=l THEN A=A-.4*Q 

IF DI=l AND A<=5 THEN PLOTA,B,R$:GOSUB 9000 
IF DI=2 THEN A=A+.4*Q 

IF DI=2 AND A>=30 THEN PLOTA,B,R$:GOSUB 9000 
OR R=2 OR R=3 THEN DI=1 ELSE DI=2 
IF R=3 OR R=6 THEN Q=2 ELSE Ql 
PLOTA,B,D$(R) :WAIT2 


D$(6)=CHR$E91) +CHR$(117)+CHR$(114) 
QS=CHR$ (33) 

RETURN 

REM ** START OF PROGRAM ** 

FOR F=0 TO 38:PLOTF,6,96:NEXTF 
POKE49086 ,94:POKE49113,94 
POKE49085,0:POKE49112,0 
POKE48040,0 

PLOTO , 26,17 

PLOTA,B,D$(R) 

POKE48041, 2 

PLOT4,0,"TIME LEFT=" 

POKE48061,1 

PLOT21,0,"SCORE=" 

POKE48043,1 

RETURN 
Y¥1=¥1+300:Y2=¥2+300:¥3=¥3+300: ¥4=¥4+300:¥5=¥5+300:¥6=¥6+300 
RETURN 

REM ** INSTUCTIONS ** 

CLS 

PRINT: PRINT 
PRINT CHR$(4) 
PRINT CHR$(27);"Q 
PRINT CHR$(4) 


"+CHR$ (27); "N TORPEDO ATTACK" 


1530 PRINT:PRINT 

1540 PRINT" THIS PROGRAM IS DESIGNED BY" 
1550 PRINT" MARTYN J.HALL" 

1570 PRINT 

1580 PRINT"TO OPERATE THIS GAME USE THE LEFT AND" 
1590 PRINT"RIGHT CURSORS TO MOVE LEFT AND RIGHT," 
1600 PRINT"THE UP CURSOR TO FIRE,AND IF IT IS" 
1610 PRINT“ON LEVEL 1 THEN THE DOWN CURSOR" 
1620 PRINT"WILL STOP YOUR DEFENDER.NOTE THAT" 
1630 PRINT"THE ARROWS AT THE BOTTOM MARK THE" 
1640 PRINT"FIRING RANGE,WHERE YOU CAN HIT THE" 
1650 PRINT"BOATS.EACH BOAT IS WORTH A CERTAIN" 
1660 PRINT"AMOUNT OF POINTS,AS LISTED BELOW" 
1670 PRINT 

1680 PRINT" AIRCRAFT CARRIER =10 POINTS" 
1690 PRINT" DESTROYER 0 POINTS" 
1700 PRINT" SPEED BOAT =50 POINTS" 
1710 PRINT 

1720 PRINT CHRS$(27);"Q "+CHR$(27);"L PRESS SPACE BAR TO 
CONTINUE" 

1730 GET A$:IF A$=CHR$(32) THEN 1735 ELSE 1730 
1735 CLS 

1740 PRINT:PRINT 

1750 PRINT" YOUR JOB IS TO PREVENT" 

1760 PRINT" THE ENEMY (BOATS) FROM" 

1770 PRINT" REACHING YOUR BASE IN" 

1780 PRINT" THE TIME GIVEN.EVERY" 

1790 PRINT" 300 POINTS WILL GIVE" 

1800 PRINT" YOU AN EXTRA 300 ONTO" 

1810 PRINT" YOUR TIME.EVERY TIME" 

1820 PRINT" YOU FIRE 10 BITS OF TIME" 


780 
790 
800 
820 
825 


PLOTX,C," " 

PLOTX,C+SP,T$ 

NEXTC 

GOSUB 3500 

IF S=yl OR S=¥2 OR S=¥3 OR S=¥4 OR S=¥5 OR S=Y6 THEN 


O=0+300:GOSUB 1440 


827 
830 
840 
850 
860 
870 
880 
890 
900 
905 
910 
920 
930 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1140 
1170 
1180 
1190 
1200 
1210 
1215 
1216 
1217 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1291 
1292 


1830 


PRINT" 
1840 PRINT" 
1850 PRINT" 
1860 PRINT" 
1870 PRINT" 
1880 PRINT" 
1890 PRINT" 
1900 PRINT" 
1910 PRINT" 


IF 0<1000 THEN POKE48060,32 

O=0-9:IF O<100 THEN POKE48059,32:IF O<10 THEN POKE48058, 32 
IF O<=0 THEN PLOT15,0,"0":POKE48057, 32:POKE48056, 32 
PLOTX,C+SP ,T$ 

PLOTX,C+SP+1,96 

PLOT15,0,0$ 

RETURN 

REM SOGOU UOTE AKANE ERE 

SC$=STRS$(S) 

PLOT28,0,SC$ 

IF R=l OR R=4 THEN S=S+20 

IF R=2 OR R=5 THEN S=S+10 

IF R=3 OR R=6 THEN S=S+50 

PLOT28 ,0,SC$:PLOTX ,C+SP+1,96:X=X+1:PLOTX-1,Y,T$:PLOT15,0,0$ 
GOSUB 9000 

RETURN 

REM ** ENDING ROUTINE ** 

CLS 

PLOTS, 8, "£*#RERRRRAR HK HERR A RAKIM 

PLOT8,9,"* sa 

PLOT8,10,"* i 

PLOT8,11,"* 

PLOTS,12,"* ot 

PLOTS, 13, "*#*RRRANEAA RRR R EERE EM 

FOR C=1 TO 10 

PLOT11,10,"THIS PROGRAM HAS" 

PLOT15,11,"NOW ENDED" 
PLAY2,0,2,200:MUSIC2,3,2,15:WAITSO 

PLOT11,10," " 

PLOT15,11," a 

PLAYO,0,0,0:WAIT40 

NEXT C 

WAIT100 

CLS: INK6:PRINT CHR$(19) 

END 

REM ** INITIALIZATION ** 

B=5:¥=25:L=124:S=0:0=400 

R=INT(6*RND(1)) +1 

IF R=] OR R=2 OR R=3 THEN A=30 ELSE A=5 

IF R=l OR R=2 OR R=3 THEN DI=] ELSE DI=2 

Ts="_" 

RS=" * 
¥1=300:¥2=310:¥3=320:¥4=330:¥5=340:Y6=350 

CLS 

D$(1)=CHR$ (64) +CHRS (122) +CHR$(118)+CHR$(118)+CHR$(115) 
D$(2)=CHR$( 106) +CHR$ (99) +CHRS (121) +CHR$(99) +CHRS$(120) 
D$(3)=CHR$ (123) +CHRS$(125)+CHR$(91) : 
D$(4)=CHR$ (97) +CHRS$ (100) +CHR$ (100) +CHR$(122)+CHRS(101) 
D$(5)=CHR$ (106) +CHR$ (99) +CHRS (119) +CHR$ (99) +CHRS$(120) 


ARE TAKEN OFF YOUR TIME” 

SO THE BEST WAY TO PLAY" 

IS TO SHOOT AS LITTLE AS" 
POSSIBLE.ALSO EVERY TIME" 

YOU HIT A BOAT,YOUR DEFENDER™ 
IS MOVED TO THE RIGHT" 

BY ONE PLACE,AND ALSO" 

YOUR DEFENDER MOVES IN" 

THE DIRECTION WHICH IT" 


1920 PRINT" WAS GOING IN BEFORE UNLESS" 

1930 PRINT" THE DIRECTION IS CHANGED" 

1940 PRINT" OR YOU FIRE,OR ON LEVEL ONE" 

1950 PRINT" YOU STOP THE DEFENDER." 

1960 PRINT 

1970 PRINT CHR$(27);"Q "+CHR$ (27) ;"L PRESS SPACE BAR 
CONTINUE" 

1980 GET A$:IF A$=CHR$(32) THEN 1990 ELSE 1980 


1990 CLS 


2000 PRINT:PRINT 
2010 RETURN 
X AND SCRN(A,5)=L THEN EXPLODE:WAIT10:PLOTA,B,R$:GOSUB 


3500 IF 


890:RETURN 


3510 IF X AND SCRN(A+1,5)=L THEN 


890:RETURN 
X AND SCRN(A+2,5)=L THEN EXPLODE:WAIT10:PLOTA,B,R$:GOSUB 
890:RETURN 

3530 IF R=3 OR R=6 THEN RETURN 


3520 IF 


3540 IF X AND SCRN(A+3,5)=L THEN 


890:RETURN 
X AND SCRN(A+4,5)=L THEN EXPLODE:WAIT10:PLOTA,B,R$:GOSUB 

890:RETURN 
3560 RETURN 


3550 IF 


9000 REM 


** STARTING POINTS ** 


9010 R=INT(6*RND(1))+1 

9020 IF R=l OR R=2 OR R=3 THEN DI=l ELSE DI=2 
9030 IF DI=l THEN A=30 ELSE A=5 

9040 IF DI=l THEN A=A-Q 

9050 IF DI=2 THEN A=A+Q 


9060 


RETURN 


TO 


EXPLODE:WAIT10:PLOTA,B,R$:GOSUB 


EXPLODE:WAIT10:PLOTA,B,R$:GOSUB 
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Why you should 
subscribe to 
ORIC OWNER 


Your Oric 1 is one of the most powerful low-cost computers on the market today. Oric 
Owner is the only magazine totally dedicated to the Oric and its supporting hardware 
andsoftware. 


From issue to issue Oric Owner is able to bring you in-depth information on the Oric, 
advance news on the latest add-ons, superb programs to try and ‘behind the scenes’ 
interviews with the engineers who designed it. 


If you wish to keep ahead of the latest developments and news on the Oric then Oric 
Owner is essential. At only £10 for a year’s subscription of 6 issues (£15 for overseas 
readers) can you afford to be without Oric Owner? 


SUBSCRIBE TODAY! 


subseription form 
Please send me the next 6 issues of ORIC OWNER 


Starting frOM ISSUE .........ccceeeeee eee ees 


| SPVCHOSE ACN US sisi cons tote ctcs von s: o davvmioe roma teen inant tea taav seen snwetigenixentione for £10 


Geese eeceseseesseseseeseeseear 


PLEASE NOTE: All cheques must be made payable to: Tansoft Ltd, Unit 1 & 2, Techno 
Park, Newmarket Road, Cambridge 
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ORIC-MON 

Includes mnemonic 
assembler/disassembler, 
block move and verify, 
data and text entry and 
cassette and printer 
handling. Includes 
manual. £15.0 inc. VAT — 
16K or 48K 


House 
of Death 


An impressive follow-up to 
Zodiac, discover the secrets 
of the haunted house, avoid 
the witch and the axe 
murderer and come away 
with incredible treasures. 
£9.99 inc. VAT — 48K. 


ZODIAC 

One of our most successful 
games. Discover the twelve 
cunningly disguised signs of 
the zodiac which will lead 
you to six treasures. Full of 
puzzles, puns and misleading 
clues. £9.99 inc. VAT — 48K. 


ORIC Software 


ORICMUNCH 
Munch the 
Bugmonsters and 
eat the power pills, 
clear the maze to 
reach the high 
score. £7.95 inc. 


VAT — 16K or 48K. 


TANSOFT LANGUAGE 
MASTERCLASS 

If you are going abroad for 
pleasure or business these 
courses will give you a basic 
understanding of the 
language. Based on the new 
Gruneberg Link-Word 
method. 


Spanish 


Italian 
German 
French 


supplied with program 
cassette and spoken 
vocabulary pronunciation 
cassette. £12.95 each inc. 
VAT — 48K. 


ORICBASE 

A complete 
database system. 
A sophisticated 
query language 
allows you to 
search and sort 
your data, keep 
running totals and 
print reports. Full 
manual. £14.50 
inc. VAT — 48K. 


FORTH 


A full implementation of 
this ae new computer 
n 


language. Includes editor 
and assembler plus 
language extensions. 
£15.00 inc. VAT — 48K. 


You received your first issue of Oric Owner free with your 
machine. Why not subscribe now and keep in touch with all 
the latest developments in the Oric range 


LIGHT CYCLE 


REAL SOFTWARE 


CENTIPEDE 


FOR YOUR 
ORIC 1-- 


AVAILABLE NOW 
DIRECT FROM 
P.S.S. 


SPIDERS, FLEAS, MUSHROOM 
LAYING BEETLES, SOUND, 
COLOUR, HI RES. GRAPHICS, 
HIGH SCORE TABLE, GAME RESET 


THIS PROGRAM HAS BEEN 
APPROVED BY ORIC 
PRODUCTS INTERNATIONAL 


6-95 
AVAILABLE SOON 
LIGHT CYCLE 


YOU HAVE BEEN CHOSEN BY 
THE M.C.P. TO RACE ON THE 
INFAMOUS GRID. CAN YOU 
SURVIVE? 100% MACHINE 
CODE. 1 OR 2 PLAYERS, RACE 
THE COMPUTER OR ANOTHER 
PLAYER. ..SO FAST YOU 
WON'T BELIEVE IT!! 


PERSONAL 

SOFTWARE SERVICES 
FOR INSTANT CREDIT CARD 
SALES TEL (0203)667556 


CHEQUE OR P.O. TO PS.S. 
452 STONEY STANTON RD. 
COVENTRY CV6 5DG. 


TRADE ENQUIRIES CONTACT JOHN FLETCHER, 


Fa a. 
a 


ORIC-MON 


—— 


INVADERS 


INVADERS 


QUITE SIMPLY THE ULTIMATE 
VERSION OF “SPACE 


INVADERS” AVAILABLE TODAY. 


FEATURES:— ALL MACHINE 
CODE, SMOOTH ACTION LASER 
BASE, “LIVE” ALIENS, 
CRUMBLING WALLS, EXPLO- 
SIVE SOUND EFFECTS, FULL 
COLOUR, HI RES. GRAPHICS, 
INCREASING GAME SPEED, 
BONUS POINTS, MOTHER 
SHIPS AND MORE.... 


6:95 
ORIC-MON 


ORIC-MON IS A POWERFUL 
MACHINE CODE MONITOR 
PLUS A FULL DISASSEMBLER 
FOR YOUR ORIC 1. AN 
ESSENTIAL SOFTWARE TOOL 
FOR WRITING, DEBUGGING 
AND RUNNING YOUR MACHINE 
CODE PROGRAMS OR MACHINE 
CODE SUBROUTINES TO BE 
CALLED FROM BASIC. CON- 
TAINS ALL THE FEATURES 

OF MONITORS FOUND ON 
MUCH LARGER MACHINES. 

A SUPERB PROGRAMMING AID 
FOR YOUR ORIC 1. 


8-95 


HOPPER 


ALL MACHINE CODE VERSION 
OF “FROGGER” FOR YOUR 
ORIC 1. 

FEATURES:— VARIABLE SPEED 
TRAFFIC, 3 LANE HIGHWAY, 
SNAKES, TURTLES, DIVING 
TURTLES, FLEAS, LOGS, 
DECREASING TIME LIMIT, 
EVER INCREASING GAME 
SPEED, HI SCORE TABLE, FULL 
COLOUR, AMAZING GRAPHICS, 
SUPERB SOUND. YOU HAVEN'T 
PLAYED “FROGGER” UNTIL 
YOU'VE PLAYED “HOPPER”. 


6-95 


AVAILABLE SOON 
THE ULTRA 


THIS IS THE GAME FOR ALL 

YOU ARCADE WIZARDS OUT 
THERE. . ZAPPING ALIENS 

WAS EASY UNTIL “THE ULTRA” .. 
THIS GAME IS TOTALLY 
WRITTEN IN MACHINE CODE 

TO MAKE IT THE FASTEST, 
TRICKIEST ARCADE GAME 

OF THEMALL. 

16 DIFFERENT SCREENS COLOUR, 
SOUND AND HI RES. GRAPHICS 


6-95 


